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Abstract 


A general-purpose digital computer program (named ELAS) for the in-core 
solution of linear equilibrium problems of structural mechanics is described for 
potential and actual users in Volume I of this report, and is documented in 
Volume II. The program requires minimum input for the description of the 
problem. The solution is obtained by means of the displacement method and 
the finite element technique. Almost any geometry and structure may be handled 
because of the availability of lineal, triangular, quadrilateral, tetrahedral, hexahe- 
dral, conical, triangular torus, and quadrilateral torus elements. The assump- 
tion of piecewise linear deflection distribution insures monotonic convergence of 
the deflections from the stiffer side with decreasing mesh size. The stresses are 
provided by the best-fit strain tensors in the least-squares sense at the mesh points 
where the deflections are given. The selection of local coordinate systems when- 
ever necessary is automatic. The core memory is efficiently used by means of 
dynamic memory allocation, an optional mesh-point relabelling scheme, imposi- 
tion of the boundary conditions during the assembly tune, and the straight-line 
storage of the rows of the stiffness matrix within variable bandwidth and the 
main diagonal. The number of unsuppressed degrees of freedom that can be 
handled in a given problem is 500 to 600 for a typical structure, but might far 
exceed these average values for special ty pes of problems; the execution time 
of such problems is about four minutes in 32K IBM 7094 Model I machines. The 
program is written in FORTRAN II language. The source deck consists of about 
8000 cards and the object deck contains about 1400 binary cards. The physical 
program (standard ELAS) is available from COSMIC, the agency for the dis- 
tribution of NASA computer programs. 
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I. Introduction 


Volume I, Users Manual , of this report gives a general 
description of ELAS,* a general-purpose digital com- 
puter program for the in-core solution of linear equi- 
librium problems of structural mechanics, and contains 
the information necessary for input preparation, arrange- 
ment of the physical program, and interpretation of out- 
put and error messages. Volume II, Documentation of 
the Program , is published in two parts: the basic 
Volume II, which gives the theoretical background of the 
program and contains tables and figures describing 
the COMMON variables, their meanings, and their 
arrangement in COMMON; and this report— Addendum 
to Volume II— which contains program descriptions, flow- 
charts, and source program listings for all program ele- 
ments of ELAS /Level 3. (The original version of the 
ELAS program made available from COSMIC** in 
April 1968 is designated ELAS/Level 0. Subsequent 
program corrections made in January 1969, March 1969, 
and May 1969 updated the program to ELAS/Level 1, 
ELAS/Level 2, and ELx\S/Level 3, respectively.) 


* First two syllables of the word Elasticity. 

** Computer Software Management and Information Center, 
Computer Center, University of Georgia, Athens, Georgia, 
30601, telephone 404-542-3265. 


Sections II, III, IV, and V of the Addendum briefly 
describe the main programs and tire subroutines of 
Links 1, 2, 3, and 4, respectively, of the ELAS program 
with reference to the flowcharts illustrated in Section VI, 
and the source program listings given in Section VII. 
Program descriptions include all subroutines that are 
not in the FORTRAN library. The standard ELAS is 
coded in FORTRAN II, with the exception of subroutines 
LEBIN, SEBIN, and TICK, which are in FAP. The sub- 
routines are described in alphabetical order under each 
main program. The flowcharts, which are also in alpha- 
betical order, present semidetailed diagrams of the se- 
quential logic and decision points in the program. The 
source program listings are a straight listing of the first 
file in the program tape that contains the physical 
program. 

The user of this Addendum will need both Volume I 
and the basic Volume II for reference because of nu- 
merous cross-references to figures and tables contained 
therein. The information in the referenced figures and 
tables is essential to interpretation of the content of the 
Addendum. Reference is also made herein to program 
input and output items and error messages, which are 
described and identified by number in Volume I. 
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II. Main Program and Subroutines of Link 1 


A* Main Program of Link I 

The flowchart and the source program listing of the 
main program of Link 1 are given in Fig. VI-1 and 
Table VII- 1, respectively. The logical function of the 
program may be summarized as follows: 

(1) It defines IN, IT, IDEG, ITYPE, IGEM, ISTR, IH, 
18, IBN, IP, IPRS, IMAT, NTIC, ISDT, ISDY, 
ISDZ, IARE, IMMX, IMMY, IMMZ, IMFI, INX, 
INP, ISHUF, ICOR, IBUN, IMES, IPIR, ITAP, 
ITAS, Gl, G2, G3, ACEL directly from Input 
Item 2. 

(2) It computes constants ISUM, IND, IORD, IORD1, 
and ZGEM, and pointers Jl, J2, ]3, J4, J5, J6, J7, 
J8, J9, J10, IBB, IBO, IID, IIA, IDT, IDY, ITE, 
ICAR, ICIX, ICIY, ICIZ, ICFI, IXX, IYY, IZZ, 
IIC, IDEF, 1ST, IIS, IU, and IDZ from the infor- 
mation given by Input Item 2 . 

(3) It generates the vectors related with pointers Jl, 
J2> J3, J4, J5, J6, J7, J8, J9, J10, IBB, IBO, IIC, 
IXX, IYY, IZZ, and IDEF (partially) directly or 
indirectly frorri the iiipul information of the job. 

(4) Depending upon the value of INX, it transfers con- 
trol either to statement 2700 or to the main program 
of Link 3. 


Before using any input information, the main program 
checks it against the input specifications (see Sect. Ill 
and IV, Vol. I). If the program encounters an irrecov- 
erable error in the input information, it always branches 
to statement 300, which prints out COMMON both in 
fixed- and floating-point modes and skips the related 
job. In transferring information from input cards into 
the proper locations in COMMON, the program uses 
DUMMY (also called IDUM) area in COMMON for 
temporary storage. The main program calls subroutine 
TABL to print out Output Item 1; subroutine TICK to 
measure time; subroutine BUNG to generate deflection 
boundary conditions (dbc) input units automatically, if 
IBUN = 1; subroutine CORG to generate coordinates of 
the nodes automatically, if ICOR = 1; subroutine MESG 
to generate mesh topology and element properties auto- 
matically, if IMES = 1; subroutine COOR to read in, 
examine, and store nodal coordinates; subroutine MEST 
to read in and store element data; subroutine TOPO to 
examine and separate the element data in storage; and 
finally, subroutine SRAT to obtain internal node labels 
in vector ISIR, and the highest internal label in the node 
set of each node in vector I MAX (refer to Input Item 17, 
Seel. IV, Vol. I). Among these subroutines, subroutine 
SRAT has its own subroutine. The contribution of 
the prescribed concentrated loads to the right-hand-side 
vector of the equilibrium equations before the displace- 
ment boundary conditions are imposed is stored in the 
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IDEF-pointer-related vector, first as in item (1) of 
the IDEF entry of Table III-3, Vol. II (basic), and then as 
in item (2) in the same entry. Probably the most impor- 
tant function of the main program is the generation of 
vectors defined by pointers IBB, IBO, and IIC. The 
meanings of the entries of these vectors are given in 
Table III-3, Vol. II (basic), and Table VT-2, Vol. I. These 
vectors are first generated as if all deflections were 
independent and with IBB numbers always equal to 
IND + 1. Then the numbers are modified with the dbc 
input units to recognize linear dependence. Finally, when 
vectors ISIR and IMAX are provided by subroutine 
SRAT, they are finalized. Vectors defined by pointers 
IBB, IBO, and IIC are first used in the main program 
to compute the contribution of the prescribed concen- 
trated loads to the reduced right-hand-side vector in the 
IDEF-pointer-related vector. Later in Link 2, they are 
used in computing the contributions of the element stiff- 
ness matrices to the reduced stiffness matrix in the IST- 
pointer-related vector and the reduced load vector in the 
IDEF-pointer-related vector, and the contributions of 
the element load vectors to the reduced load vector in the 
IDEF-pointer-related vector. In Link 3, these three vec- 
tors are used in obtaining the deflections of all nodes 
from the reduced deflection vector in the IDEF-pointer- 
related vector. The standard ELAS Link 1 main program 
assumes that IN < 540 and ISUM < 10000. (See Ap- 
pendix, Vol. I, for instructions on how to change these 
limits.) 

B. Subroutines of Link 1 

1. Subroutine ARAN. Subroutine ARAN is called by 
subroutine SRAT. The flowchart and the source program 
listing of ARAN are given in Fig. VI-2 and Table VII-2, 
respectively. The logical function of the subroutine may 
be summarized as follows: 

(1) Subroutine ARAN generates vector IMAX for sub- 
routine SRAT. 

(2) If 0 < ISHUF < 3, the subroutine modifies vec- 
tor ISIR and computes vector IMAX accordingly, 
to minimize the shaded area of the coefficient 
matrix shown in Fig. II-l (Vol. I). 

(3) If ISHUF = 2, the subroutine reads cards for vec- 
tor ISIR, modifies matrix ABIN accordingly, and 
performs the function given in (2). 

(4) The subroutine produces relabelling output items 
(Output Item 5) according to Sect. VI-F, Vol I. 

In performing these tasks, subroutine ARAN expects 
that connectivity matrix ABIN, ISIR vector of labels, 


row order IN, and column order IS UR of matrix ABIN 
are available in COMMON. In performing logical func- 
tion (2), the subroutine also generates vector IMIN. Sub- 
routine ARAN calls subroutine OUTPT to print out mesh 
topology (P) of Output Item 5 (see Sect, VI-F, Vol. I), 
subroutine EXCH to interchange to successive rows and 
their respective columns in the connectivity matrix ABIN, 
function LEBIN to find out if a node is connected with 
another node, and subroutine TICK to measure relabel- 
ling time. The algorithm for logical function (2) is given 
in Ref. 1. The standard ELAS assumes that a word con- 
sists of 36 binary bits, and this is assumed in subroutine 
ARAN. (See Appendix, Vol. I, for instructions on how to 
change this constraint.) 

2. Subroutine BUNG, Subroutine BUNG is called by 
the main program of Link 1, if IBUN = 1. The standard 
ELAS contains only the dummy version of this subrou- 
tine, as shown in Table VII-3. If IBUN = 1, the sub- 
routine should be rewritten by the user, as explained in 
Sect. V-D, Vol. I. The logical function of the subroutine 
is to place IBN number of dbc input units into DUMMY 
or IDUM area. 

3. Subroutine COOK Subroutine COOR is called by 
the main program of lank 1, if ICOR = 0. The flowchart 
and the source program listing of COOR are given in 
Fig. VI-3 and Table VIM, respectively. The function of 
this subroutine is to read the cards of Input Item 14 in 
blocks of not greater than 1000 nodes, to examine whether 
the node labels are sequential, and to generate IXX-, 
IYY-, and IZZ-pointer-related vectors. If IGEM = 0, the 
IZZ-pointer-r elated vector will not be generated. In case 
of error, the subroutine returns control to the calling pro- 
gram with IERR — 1, without completing its function. 

4 . Subroutine COBG . Subroutine CORG is called by 
the main program of Link 1, if ICOR = 1. The standard 
ELAS contains only the dummy version of this subrou- 
tine, as shown in Table VII-5. If ICOR = 1, the sub- 
routine should be rewritten by the user, as explained in 
Sect. V-B, Vol. I. The logical function of this subroutine, 
when ICOR — 1, is to generate vectors related with 
pointers IXX ? IYY, and IZZ. 

5. Subroutine EXCH . Subroutine EXCH is called by 
subroutine ARAN. The flowchart and the source program 
listing of EXCH are given in Fig. VI-4 and Table VII-6, 
respectively. The function of this subroutine is to inter- 
change the Ith row with the IP th row of the ABIN ma- 
trix, and Ith binary column with the IP th binary column 
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of the same matrix; MI is the smallest binary column num- 
ber of the first nonzero binary entry either in row I or 
in row IP; MX is the largest binary column number of 
the last nonzero binary entry either In row I or in row IP. 
Since ABIN is a symmetric binary matrix, MI and MX 
also define the limits of the I th and IP th columns. Inter- 
change operation is carried out only within these limits. 
The subroutine expects ABIN, I, IP, MI, and MX to be 
available in COMMON, and it assumes that a word con- 
sists of 36 binary bits. (See Appendix, Vol. I for instruc- 
tions on how to change this limit) Subroutine EXCH 
calls function LEBIN to obtain the value of a certain bit 
of a word, and subroutine SEBIN to store 1 or 0 in a 
certain bit of a word. 

6 . Function LEBIN . The subprogram LEBIN is called 
by subroutines ARAN and EXCH. The flowchart and the 
source program listing of LEBIN are given in Fig. VI-5 
and Table VII-7, respectively. The coding is in FAP for 
the IBM 7094. The logical function of LEBIN is to return 
as a FORTRAN integer the value of the bit, shown in 
the second argument, of the word shown in the first 
argument. It assumes that the word length is 36 binary 
bits. For any other machine, this function should be 
rewritten. 

7. Subroutine SEBIN* Subroutine SEBIN is called by 
subroutines EXCH and SRAT. The flowchart and the 
source program listing of SEBIN are given in Fig. VI-6 
and Table VII-7, respectively. The coding is in FAP for 
the IBM 7094. The logical function of SEBIN is to store 1 
or 0 (as shown in the third argument) in to the bit (shown 
in the second argument) of the word (shown in the first 
argument). The subroutine assumes that a word consists 
of 36 binary bits. For any other machine, this subroutine 
should be rewritten. 

8. Subroutine MESG* Subroutine MESG is called by 
the main program of Link 1, if IMES = 1. The standard 
ELAS contains only the dummy version of this subrou- 
tine, as shown in Table VII-8. If IMES = 1, the sub- 
routine should be rewritten by the user, as explained in 
Sect. V-C, Vol. I. The logical function of this subroutine, 
when IMES — 1, is to generate vectors related with 
pointers Jl, J2, J3, J4, J5, J6, J7, J8, J9, and J10. 

9. Subroutine MEST* Subroutine MEST is called by 
the main urogram of Link 1 if IMES — 0 The flowchart 
and the source program listing of MEST are given in 
Fig. VI-7 and Table VI 1-9, respectively. The function of 
this subroutine is first to read the cards of Input Item 16, 
one or more at a time, into DUMMY area, and to check 


the validity of M number of the element descriptors (see 
Table IV-3, Vol. I), then to store words J1W, J2W, 
J3W, J4W, J5W, and if they exist, J6W, J7W, J8W, J9W, 
J10W of the element descriptors into the proper locations 
in the respective vectors related with pointers Jl, J2, J3, 
J4, J5, J6, J7, J8, J9, and J10, and to check the positive- 
ness of the vertex labels. In case of error, the subroutine 
returns control to the calling program with IERR — 1, 
without completing its function. If no error is encoun- 
tered, the subroutine performs its operations on the input 
cards of every element, sequentially, until all element 
data are processed. 

10* Subroutine OUTPT . Subroutine OUTPUT is called 
by subroutine ARAN, if INP = 2. The flowchart and the 
source program listing of OUTPT are given in Fig. VI-8 
and Table VII- 10, respectively. The function of this sub- 
routine is to print out Output Item 5(P) (see Sect. VI-F, 
Vol. I). This subroutine assumes that a word is 36 binary 
bits and IN < 540. (See Appendix, Vol. I for instructions 
on how to change these limits.) Subroutine OUTPT ex- 
pects ISIR, IMIN, IMAX vectors, ABIN matrix, IN, and 
ISUR to be available in COMMON. 

11* Subroutine SHAT * Subroutine SRAT is called by 
the main program of Link 1. The flowchart and the 
source program listing of SRAT are given in Fig. VI-9 
and Table VII-11, respectively. The functions of this pro- 
gram may be summarized as follows: 

(1) If ISHUF = 3, subroutine SRAT reads the cards 
of Input Item 17 for the generation of internal 
node labels in vector ISIR, and the highest internal 
label in the node set of each node in vector IMAX 
(refer to Input Item 17, Sect. IV, Vol. I). If 
ISHUF ^ 3, subroutine SRAT generates vector 
ISIR by assuming that internal and external labels 
of the nodes are the same; computes ISUR, which 
is the number of words whose binary bits are 
enough to provide one bit for each of the IN 
nodes; generates connectivity matrix ABIN from 
the mesh-topology information of Input Item 16 
and from the deflection boundary condition input 
units already in the IBO-pointer-related vector; and 
calls subroutine ARAN to obtain the finalized 
values of vectors ISIR and IMAX. (In generating 
the binary conneclivity matrix ABIN, subroutine 
SRAT first clears matrix ABIN; then it processes 
elements one at time by first listing the labels of 
the vertices of the element and the labels of the 
nodes connected with these vertices through the dbc 
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input items; and then indicates, by means of a 
binary 1 in the proper places in matrix ABIN, the 
fact that all these nodes are connected with each 
other. In matrix ABIN, one row and one column 
are assigned to every node so that ABIN is a sym- 
metric matrix. If a node i is connected with a 
node /, the ith row and the /th column, and like- 
wise the /th row and the ith column, of the binary 
matrix ABIN contain a binary bit 1. All diagonal 
elements of the binary matrix ABIN are binary 
bit 1. If a node is constrained completely by means 
of dbc input items the only nonzero bit in the row 
and the column of this node is on the diagonal. 
The ordering of rows and columns of the binary 
matrix ABIN is done by the order that is available 
in vector ISIR.) 

(2) If INP ^ 0, subroutine SRAT generates and prints 
out Output Item 6. 

(3) It generates the vector related with pointer IU, and 
if INP 0, prints it as Output Item 9. 

(4) It computes the number of words between points D 
and F, and between the beginning of COMMON 
and point G, designated in Fig. III-l, Vol. II (basic), 
and prints out Output Items 7 and 8. 

(5) It prints Error Message 5 (see Table VII-1, Vol. I) 
if the number of words to the left of point G is less 
than 12,750, which is based on the assumption that 
the core memory is 32,768 words. (See Appendix, 
Vol. I for instructions on how to modify the pro- 
gram for other core memory sizes.) 

Subroutine SRAT calls subroutine TOPO in obtaining 
the vertex labels of the elements, subroutine SEBIN in 
generating binary matrix ABIN, and subroutine ARAN to 
obtain vector I MAX and the corresponding vector ISIR. 

12. Subroutine TABL . Subroutine TABL is called by 
the main program of Link 1. The flowchart and the 
source program listing of TABL are given in Fig. VI- 10 
and Table VII-12, respectively. The function of this 
subroutine is to print out Output Item I, It expects the 
contents of Input Items 1 and 2 to be available in 
COMMON. 


13. Subroutine TICK. Subroutine TICK is called by 
the main program of Link 1. It is also called by subrou- 
tine ARAN and by the main programs of Links 2, 3, 
and 4. The flowchart and the source program listing of 
subroutine TICK are given in Fig. VI-11 and Table VII-13, 
respectively. The coding is in FAP for the IBM 7094. The 
subroutine expects the time in units of 1/60 second in 
the absolute memory location 5 as a binary integer. Its 
function is to return, as a FORTRAN integer in the argu- 
ment, the time, in 1/60-second units, elapsed since the 
first call. (See Appendix, Vol. I, for instructions on how 
to change this subroutine for other machines.) 

14. Subroutine TOPO. Subroutine TOPO is called by 
the main program of Link 1. It is also called by subrou- 
tine SRAT. The flowchart and the source program listing 
of TOPO are given in Fig. VI-12 and Table VII-14, re- 
spectively. The function of this subroutine may be sum- 
marized as follows: 

(1) It extracts from J1-, J2-, J3-, J4-, J5-, J6-, J7-, J8-, 
J9-, and JlO-pointer-related vectors for the M th 
element the vertex labels in N* vector, the pres- 
sure type number in JPRS, the material type num- 
ber in IMET, the thickness type number in ITIC, 
the temperature increase type number in ITEM, the 
temperature gradient in //-direction type number 
in JSDY, the temperature gradient in z-direction 
type number in JSDZ, the cross-sectional area type 
number in JARE, the torsional constant type num- 
ber in JMMX, the //-moment of inertia type number 
in JMMY, the z-moment of inertia type number in 
JMMZ, and the angle for principal axes type num- 
ber in JMFI, as described in Table III-2 (Vol. II, 
basic). 

(2) It checks whether the vertex labels and the prop- 
erty type numbers are within the bounds pre- 
scribed in Input Item 2. In case of error, the 
subroutine continues scanning the properties of 
the M th element and prints out Error Message 3 
(see Table VII- 1, Vol. I) after executing the imple- 
mentation of the message. 
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111. Main Program and Subroutines of Link 2 


A. Main Program of Link 2 

The flowchart and the source program listing of the 
main program of Link 2 are given in Fig. VI- 13 and 
Table VII-15, respectively. The logical function of the 
program may be summarized as follows: 

(1) It clears the reduced stiffness matrix area (the IST- 
pointer-related vector of Table III-3, Vol. II, basic). 

(2) It generates the elemental matrices in S and P 
areas, and assembles these into 1ST- and IDEF- 
pointer-related vectors, sequentially. 

(3) It stores on tape ITAS (if available) the elemental 
matrices, sequentially. 

(4) Depending upon the value of INX, it transfers 
control either to the main program of Link I or to 
the main program of Link 3. 

In carrying out function (2) listed above, the program 
executes a DO-loop on element labels M. In this loop, 
for any element M, it first clears a certain work area 
(see block *133 in Fig. VI-13) and sets the variables 


ITTT = 0, ITTM = NAV = 1, and CFE = 1. Variable 
ITTM is not in COMMON. For element types 1, 2, 
3, 4, 5, 7, 9, 11, 13, 15, 17, and 18, ITTM = NAV = 1 
and CFE “ 1., and ITTT is made 1 at block 5100 of 
Fig. VI- 13. For the remaining element types, that is, ele- 
ment types 6, 8, 10, 12, 14, and 16, the program estab- 
lishes subelements as described in Table VI-5 (Vol. I). 
For element types 6, 8, 12, 14, and 16, the program 
obtains two triangles for every quadrilateral in two ways, 
as shown in Table VI-5 (Vol. I). Since such a procedure 
is equivalent to doubling the material volume of the 
structure, the elemental matrices are weighted with 
constant CFE = 1/2 (See block 4902 of Fig. VI-13); 
ITTM is the number of the subelements and ITTT is the 
subelement count in each way of subdivision, and 
NAV — 1 is the count of subdivisions. For example, 
NAV = 2, ITTT — 2 means the second triangle of the 
first way of subdivision, and NAV = 3, ITTT = 1 means 
the first triangle of the second way of subdivision. The 
same symbolism applies fur element type 10, where 
ITTM — 5, which indicates that there are five tetrahe- 
drons for every way of subdividing an hexahedron. The 
subdivision procedure is achieved as indicated in 
block 504 of Fig. VI- 13, with the help of subroutine CUTE. 
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In the DO-loop on elements, after the initialization of 
block *133 (Fig. IV- 13), by means of subroutine TOPO, 
the descriptive words of the element (the quantities 
listed in Jl- through JlO-pointer-related vectors) are 
extracted and analyzed to obtain the vertex labels in 
N block and the property type numbers. Next, the vertex 
labels are copied to NOO block in preparation for the 
subdivision operation and IMS is established. Following 
this, the order of the element stiffness matrix IDS is 
determined, actual values of load and geometry con- 
straints are obtained, and the material constants are 
prepared. Even if an element is subdivided, the same 
load, geometry, and material constants are used for the 
subelements. The following constants are prepared, as 
explained in Sect. III-C, Vol. I: E and G for element 
types 1, 2, 3, and 4; D21 for element types 9, 10, 15, 
and 16; D33 for element types 5, 6, 7, 8, 11, 12, 13, and 
14; and E22 for element types 7, 8, 11, 12, and 18. The 
constant E is the Youngs modulus, G is the shear modu- 
lus, D21 is the upper half of the 6X6 material matrix, 
D33 is the material constants matrix for in-plane defor- 
mations, and E22 is the material constants matrix for 
out-of-plane deformations. Finally, arrays related with 
subelement vertex coordinates and labels are prepared 
(see block 5100, Fig. VI-13), the subelement count ITTT 
is set, and the number of entries in the free-free stiffness 
matrix, IDS2, is obtained; and S and P areas are cleared 
for elemental matrices of the subelement/element (see 
block 5600, Fig. VI-13). 

In the DO-loop on elements, for every subelement/ 
element, a free-free stiffness matrix and a load vector are 
generated in S and P, respectively. For this purpose the 
program calls subroutine STFS, which, in turn, calls 
the proper subroutine determined by the type number 
of the current element. These subroutines are SOI, S02, 
S03, S04, S05, S07, S09, Sll, S13, S15, S17, and S18. The 
numeral in these names corresponds to the type number 
of the element for which the subroutine is directly appli- 
cable. In all these subroutines, the input information is 
in X, Y, Z, XD, YD, ZD, DT, DG, DGY, DGZ, TE, AL1, 
AL2, AL3, E, G, D21, D33, E22, PRES, ACEL, N, CONS, 
UV 5 and COMMON 200-328 locations. The output con- 
sists of S, P, and sometimes IPBG and IPEN constants. 
The latter two constants indicate whether the element 
load vector in P is complete, or whether some additional 
operation is necessary in the main program. If IPBG is 
nonpositive and IPBG < IPEN, no additional operation 
is expected from the main program to modify load vec- 
tor P. The thermal portion of load vector P is always 
completed by the main program. Before the subroutines 


are called, the main program sets in vector UV the list 
of vertex deflections due to DT of the free-free element. 
The subroutines called by subroutine STFS modify this 
vector properly so that the portion of the element 
load vector due to temperature changes can be added to 
P as the product of the free-free stiffness matrix of the 
element (the quantities in S) times the deflections in 
UV by means of subroutine DMM. This is shown in 
block 951 of Fig. VI-13. In this figure, Block 953 corre- 
sponds to the inquiries on constants IPEN and IPBG. 
The modification to vector P in the main program 
consists of adding certain constant values derived from 
CONS, PRCO, and PD values to certain subvectors of P 
as indicated by IPEN and IPBG. The values of IPEN, 
IPBG, CONS, PRCO, and PD are determined by the 
subroutine that generates S and P. 

After the generation of S and P in the DO-loop on 
elements, the main program scans each entry of S and P 
one at a time and assembles it to the governing equations 
of the system. This is the operation in block 9532 of 
Fig. VI-13, which ends just before block 95*. The assem- 
bly procedure is described in Sect. II, Vol. II (basic). 
With the notation given there, a, ev, &, and b, e'h, jl are 
generated in IQE, CCCI, IBS and JQE, CCCJ, JBS loca- 
tions of COMMON, respectively, by means of subroutine 
DARN. After the assembly of the subelement/element 
matrices S and P, if a scratch tape is available, the opera- 
tions shown in block 9982 (Fig, IV-13) are for future 
reference. Next, ITTT is compared with ITTM, and the 
value of NAV (which is updated by subroutine CUTE) 
is inquired. When the last subelement of the last sub- 
division is completed, the process is repeated for the next 
element until all the elements are handled. Then, scratch 
tape ITAS (if prescribed) is rewound, the total time 
elapsed since the first entry to the main program is ob- 
tained by means of subroutine TICK and recorded, and 
the transfer of control is made. 

The main program of Link 2 is also responsible for the 
production of Output Items 14, 15, 16, and 17, as pre- 
scribed by INP and subroutine CAS2 (see Table VI-1, 
Vol. I). At the end of Link 2, the coefficients in the 
shaded areas of Fig. II-l, Vol. I, are generated and stored 
in 1ST- and IDEF-pointer-related arrays of COMMON. 

B. Subroutines of Link 2 

I. Subroutine ADM . Subroutine ADM is called by 
subroutines SOS, S07, S09, S15, S17, and S18. The flow-- 
chart and the source program listing of ADM are given 
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in Fig, VI- 14 and Table VII- 16, respectively. The sub- 
routine has seven arguments. The function of the subrou- 
tine is to add a constant times a square matrix to another 
one which is symmetric. The constant is given by the 
seventh argument, the matrix to be added is given by 
the third argument, and the matrix to be increased is 
given by the first argument. The order of the latter ma- 
trix is given in the second argument, the order of the 
former by the fourth argument. Since the orders are dif- 
ferent, the row and column numbers of the entry in the 
matrix of the first argument corresponding to the first 
entry of the matrix of the third argument are given with 
the fifth and sixth arguments. The addition operation is 
carried out such that the matrix of the first argument 
always remains symmetrical. Both matrices are assumed 
to be listed columnwise, with the column orders as pre- 
scribed by the second and fourth arguments. The order 
of the matrix in the third argument cannot be larger 
than 4. There is no error return of the subroutine. In all 
cases, the matrix in the first argument is the free-free 
stiffness matrix of various types of elements, and the 
matrix in the third argument is usually a submatrix re- 
lated with given degree-of-freedom directions. 

2. Subroutine BEAM . Subroutine BEAM is called by 
subroutines S02 and S04, The flowchart and the source 
program listing of BEAM are given in Fig. VI- 15 and 
Table VII- 17, respectively. This subroutine generates, in 
local coordinates, the free-free stiffness matrix of a planar 
beam element and stores it in A(6,6), which is located in 
COMMON (200). The matrix may be partitioned with 
respect to degrees of freedom (nine submatrices, 2X2 
each). In generation of the stiffness matrix, the shear 
deformations are ignored. 

3. Subroutine CAS2. Subroutine CAS2 is called by the 
main program of Link 2. The standard ELAS contains 
only the dummy version of this subroutine, as shown in 
Table VII-IS. If Output Items 14, 15, and 16 are to be 
produced selectively, the subroutine should be rewritten 
by the user, as explained in Sect. V-G, Vol. I. The logical 
function of this subroutine is to change the value of INF 
as desired in the DO-loop on elements of the main pro- 
gram of Link 2. 


4. Subroutine COD1 . Subroutine CODI is called by 
subroutines S02, S03, and S04. The flowchart and the 
source program listing of CODI are given in Fig. VI- 16 
and Table VII- 19, respectively. The subroutine generates 
the direction cosines of the local axes for element types 2, 
3, and 4 in DIR (3, 3) array, which is located in 


COMMON(264). The first row of DIR corresponds to 
local x-axis, the second row corresponds to local r/-axis, 
and the third row corresponds to local £-axis. (See 
Table III-3, Vol. I, and the description of Input Item 13, 
Sect. IV-B, Vol. I, for the rules covering the local coor- 
dinate systems of these elements,) The subroutine sets 
IERR — 1 and returns control to the calling program as 
soon as an error is detected. 

5. Subroutine CORT. Subroutine CORT is called by 
subroutines Sll and S13. The flowchart and the source 
program listing of CORT are given in Fig. VI-17 and 
Table VII-20, respectively. The subroutine generates the 
direction cosines of the local coordinate axes for ele- 
ments 11 and 13 in DIR(3,3) array, which is located in 
COMMON(264). The first, second, and third rows of 
DIR correspond to the first, second, and third local axis, 
respectively. (See Table III-3, Vol. I, for the rules in 
selecting the local coordinate system for elements 11 and 
13.) After computation of direction cosines, the subrou- 
tine replaces X, Y, and Z values with the coordinates of 
the vertices in a coordinate system located usually at the 
centroid of the element and yet parallel to the local co- 
ordinate system of the element. Next, the subroutine 
computes in XD, YD, and ZD the coordinates of the 
second and third vertex in a coordinate system that is 
located at the first vertex, yet is parallel to the local co- 
ordinate system of the element. There is no error return 
in the subroutine. 

6. Subroutine CUTE. Subroutine CUTE is called by 
the main program of Link 2. The flowchart and the 
source program listing of the subroutine are given in 
Fig. VI-18 and Table VI 1-21, respectively. This subrou- 
tine has the ITTM value as an argument (see Sect. III-A). 
The subroutine is called twice for element types 6, 8, 
10, 12, 14, and 16 and is not called for other types of 
elements. Each time it is called for an element, the 
subroutine increments NAV (see Sect. III-A) by 1; 
determines ITTM, IMS, IELT, IDS values for the sub- 
elements; and generates in NOO array the list of mesh- 
point labels that conform to the (NAV — l)st row in 
part A or B of Table VI-5, Vol. I, depending upon 
whether the value of ITTM is 2 or 5, respectively. For 
example, for a quadrilateral element with mesh-point 
labels 13, 8, 51, 16, the value of ITTM is 2, and if 
NAV = 2, according to the first line of Table VI-5A, 
Vol. I, the NOO array contains the following list: 13, 8, 
51, 51, 16, 13. There is no error return in the subroutine. 

7. Subroutine DARN . Subroutine DARN is called by 
the main program of Link 2. The flowchart and the 
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source program listing of the subroutine are given in 
Fig. VI-19 and Table VII-22, respectively. The subrou- 
tine has four arguments. The last three arguments, KBS, 
CCC, and KQE, correspond to i' a) e£ and a (or 
and fc), respectively, of Sect. II, Vol. II (basic). The first 
argument is the label of the degree-of-freedom direction 
under question (see Sect. Ill- A). To achieve this func- 
tion, subroutine DARN interprets the entries of IBB-, 
IBO-, and IlC-pointer-related vectors, as described in 
Table VI-2, Vol. I. In case of error, the last argument is 
set to zero, and the subroutine returns control to the call- 
ing program. 

8. Subroutine DMM. Subroutine DMM is called by 
the main program of Link 2 . The flowchart and the 
source program listing of the subroutine are given in 
Fig. VI-20 and Table VII-23, respectively. The subrou- 
tine has four arguments. The first argument is a square 
matrix, and the second and fourth are vectors of order 
given by the third argument. The square matrix is as- 
sumed to be listed columnwise (the number and orders 
of the vectors being equal to the third argument). The 
subroutine adds on the vector in the fourth argument 
the product of the matrix in the first argument by the 
vector in the second argument. There is no error return 
in the subroutine. 

9. Subroutine ELDL Subroutine ELDI is called by 
subroutines SOI, S02, and S04. The flowchart and the 
source program listing of ELDI are given in Fig. VI-21 
and Table VII-24, respectively. The subroutine generates 
in vector PD the direction cosines of the pressure direc- 
tion for element types 1, 2, and 4. (See description of 
Input Item 4, Sect. IV-B, Vol. I, and Table III-3, Vol. I, 
for the rule for detennining the pressure direction.) If 
the element is in the general wind direction, the pressure 
is set to zero. If an error is encountered, IERR is set to I, 
and the subroutine returns control to the calling program. 

10. Subroutine PLBE. Subroutine PLBE is called by 
subroutines S03, and S04. The flowchart and the source 
program listing of PLBE are given in Fig. VI-22 and 
Table VII-25, respectively. This subroutine generates, 
in local coordinates, the free-free stiffness matrix of a 
grid beam element in A(6,6), which is located in 
COMMON(200). The matrix may be partitioned with 
respect to degrees of freedom (nine submatrices, 2X2 
each). In generation of the stiffness matrix, the shear 
deformations are ignored. 

11. Subroutine RLOC. Subroutine RLOC is called by 
subroutines S02, S03, and S04. The flowchart and the 


source program listing of RLOC are given in Fig. VI-23 
and Table VII-26, respectively. Its function is similar to 
that of subroutine ADM, described in Sect. III-B. The 
arguments in this subroutine are all implicit. They are S, 
A, IDS, II, JJ, IR, JR, NY. The subroutine assumes that S is 
an IDS X IDS matrix; A is a 6 X 6 matrix. The objective of 
the subroutine is to put NY X NY submatrix of matrix A 
on matrix S. The constants II and JJ are the row and col- 
umn numbers of the first word of NY X NY submatrix of 
matrix A. The constants IR and JR are the row and col- 
umn numbers of the corresponding word in matrix S. In 
contrast to subroutine ADM, subroutine RLOC does not 
add, but replaces the entries of matrix A on S. After the 
replacement, the processed portion of A is nullified. 
There is no error return in the subroutine. 

12. Subroutine SOI. Subroutine SOI is called by sub- 
routine STFS. The flowchart and the source program 
listing of SOI are given in Fig. VI-24 and Table VII-27, 
respectively. The subroutine generates in S the free-free 
stiffness matrix of element type 1 in the overall coordi- 
nate system, and determines constants PRCO, CONS, 
IPBG, and IPEN for the generation of load vector P (also 
in overall coordinates) in the main program of Link 2, as 
described in Sect. III-A. The portion of the load vector 
related with the temperature change is also handled in 
the main program of Link 2. To obtain the direction co- 
sines of the unit vector in the pressure direction, subrou- 
tine SOI calls subroutine ELDI. When an error condition 
is encountered, subroutine SOI sets IERR to 1 and returns 
control to the calling program. 

13. Subroutine S02. Subroutine S02 is called by sub- 
routine STFS. The flowchart and the source program list- 
ing of S02 are given in Fig. VI-25 and Table VII-28, 
respectively. The subroutine generates in S the free-free 
stiffness matrix of element type 2 in the overall coordinate 
system, determines constants PRCO, CONS, IPBG, IPEN, 
and modifies vector UV so that load vector P expressed 
in overall coordinates can be generated by the main pro- 
gram of Link 2 (see Sect. III-A). By calling subroutine 
CODI, subroutine S02 first generates the direction cosines 
of the local axes in DIR(3,3). Then subroutine BEAM is 
called to generate in A(6,6) the free-free stiffness matrix 
of the element in the local coordinate system. The direc- 
tion cosines of the direction normal to the element are 
obtained and stored in PD(3) by means of subroutine 
ELDI. Then the free-free stiffness matrix, in local coor- 
dinates, is carried from A(6,6) into S by means of sub- 
routine RLOC. Finally, by calling subroutine STRA, 
subroutine S02 obtains and stores in S the description of 
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the free-free stiffness matrix in the overall coordinate 
system. The content of COMMON location IERR is trans- 
mitted intact to the calling program for error handling. 

14. Subroutine S03. Subroutine S03 is called by sub- 
routine STFS. The flowchart and the source program list- 
ing of S03 are given in Fig. VI-26 and Table VII-29, 
respectively. The subroutine generates in S the free-free 
stiffness matrix of element type 3 in the overall coordi- 
nate system, modifies vector UV so that the portion of 
element load vector P related with the thermal loads can 
be generated in the main program of Link 2, and gener- 
ates the remaining portion of element load vector P in 
the overall coordinate system. By calling subroutine 
CODI, subroutine S03 generates the direction cosines of 
the local axes in DIR(3,3). Then, by means of subroutine 
PLBE, the free-free stiffness matrix of the element in the 
local coordinate system is obtained and stored in A(6,6). 
The free-free stiffness matrix in local coordinates is car- 
ried from A(6,6) into S by means of subroutine RLOC, 
By calling subroutine STRA, subroutine S04 obtains and 
stores in S the description of the free-free stiffness matrix 
in the overall coordinate system. The load vector due to 
pressure and acceleration is obtained in the overall co- 
ordinate system and stored in P. The distortions of the 
free-free element due to temperature gradient are first 
obtained in the local coordinate system, then, by means 
of subroutine TRAN, in the overall coordinate system, 
and both descriptions are placed in UVG. Vector UVG 
is then added to vector UV, so that the main program of 
Link 2 can handle the thermal portion of P (see 
Sect. III-A). The content of COMMON location IERR 
is transmitted intact to the calling program for error 
handling. 

15. Subroutine S04 , Subroutine S04 is called by sub- 
routine STFS. The flowchart and the source program list- 
ing of S04 are given in Fig. VI-27 and Table VII-30, 
respectively. The program generates in S the free-free 
stiffness matrix of element type 4 in the overall coordi- 
nate system, and the description of the element load 
vector P in the overall coordinate system is partly ob- 
tained. The remaining portion of element load vector P 
is obtained in the main program of Link 2. By calling 
subroutine CODI, subroutine S04 first obtains and stores 
in DIR(3,3) the direction cosines of the local axes. Then 
the contributions of the pressure and the acceleration 
loadings to the description of element load vector P in 
the overall coordinate system are partly obtained. In 
obtaining the pressure direction, subroutine S04 calls 


subroutine ELDI. The stiffness matrix in the local coor- 
dinates is obtained in two steps. In the first step, sub- 
routine BEAM is called to obtain the stiffness of the 
element in the local xtj plane for storage in A(6,6). Then 
this matrix is carried into S by calling subroutine RLOC 
four times. In the second step, subroutine PLBE is called 
to obtain the stiffness of the element for deformations out 
of the local xtj plane for storage in A(6,6), and the matrix 
is carried into S by calling subroutine RLOC once. The 
description of the free-free stiffness matrix is first ob- 
tained in local coordinates, then by means of subroutine 
STRA, in overall coordinates, for storage in S. So that 
the thermal load portion of P can be properly obtained 
in the main program of Link 2, subroutine S04 first com- 
putes into UVG the distortions of the free-free element 
due to temperature gradients, in the local coordinate 
system. Then, by means of subroutine TRAN, this vector 
is expressed in the overall coordinate system and added 
to vector UV. The content of COMMON location IERR 
is transmitted intact to the calling program for error 
handling. 

16. Subroutine SOS. Subroutine SOS is called by sub- 
routines STFS, SI I, S13, and SIS. The flowchart and the 
source program listing of SOS are given in Fig. VI-28 
and Table VII-31, respectively. When called by STFS 
(COMMON location IGEM is zero when called by 
STFS), subroutine S05 generates the free-free stiffness 
matrix S and partially generates load vector P of element 
type 5 in the overall coordinate system. When called by 
subroutines Sll and S13, it generates S and P (partially) 
in the local coordinates of the element, for element types 
11 and 13, respectively, for membrane stretching. Actu- 
ally, for the latter type of elements, X, Y, Z, XD, YD, 
and ZD contain local coordinates of the vertices. By call- 
ing subroutine TRIM, subroutine S05 first generates [M] 
and [ N ] matrices (defined in Ref. 2), in EM and EN 
locations in COMMON. The [£>] matrix (Ref. 2) corre- 
sponds to D33 in the subroutine. As far as the free-free 
stiffness matrix is concerned, the objective of this sub- 
routine is to generate the [K M ] matrix of Eq. (46) in 
Ref. 2 with a~b = c-d=e=0. Submatrices [P], 
[Q], and [R] (Ref. 2) are obtained by executing the 
triple matrix products by means of subroutine TRM, and 
then placed into S by means of subroutine ADM. For 
element types 11 and 13, pressure loading is not consid- 
ered in this subroutine, but for element type 5, the pres- 
sure loading is handled in this routine. In the latter case, 
if the element is a subelement, the pressure is considered 
only for the first subelement of both ways of subdivisions 
(see Sect. III-A). Constants IPBG, IPEN, and CONS for 
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the handling of the acceleration loading in the main pro- 
gram of Link 2 are generated in this subroutine for all 
cases. The temperature loading portion of element load 
vector P is also handled in the main program of Link 2 . 
When an error condition is encountered, the subroutine 
sets IERR to 1 and returns control to the calling pro- 
gram. The explicit expression of the free-free stiffness 
matrix may be obtained from Ref. 2. 

17. Subroutine S07 . Subroutine S07 is called by sub- 
routines STFS and Sll. The flowchart and the source 
program listing of S07 are given in Fig. VI-29 and 
Table VII-32, respectively. If the calling program is Sll, 
then X, Y, Z, XD> YD, and ZD contain the local coordi- 
nates of the vertices; therefore S and P represent the 
free-free stiffness matrix and the element load vector for 
bending of element type 11, in local coordinates. If the 
calling program is STFS, S and P represent the free-free 
stiffness matrix and the element load vector of element 
type 7, in the overall coordinate system. The portion of P 
related with pressure loading is generated by subroutine 
S07. The constants IPBG, IPEN, and CONS are gener- 
ated by subroutine S07 so that the portion of the vector P 
related with acceleration loading can be handled in the 
main program of Link 2 (see Sect. Ill- A). The portion 
of P related with the thermal loads is also handled in the 
main program of Link 2. Subroutine S07 generates in 
vector UV the distortions of the free-free element due to 
temperature gradient (see Sect, III-A). By calling sub- 
routine TRIM, subroutine S07 first obtains [A/], [N], 
and [L] matrices of Ref. 2 in locations EM, EN, and EL. 
The matrices [D] and [ D '] of this reference correspond 
to D33 and E22 in the subroutine. The triple matrix 
products indicated by Eqs. (45) and (51) of Ref, 2 are 
carried out by means of subroutine TRM, and arc prop- 
erly placed into S by means of subroutine ADM. The 
objective of subroutine S07 in generating S is to obtain 
the shaded portions of [K*] and [K$] matrices given by 
Eqs. (49) and (55) of Ref. 2. In generating the shaded 
portion of [K s ] given by Eq. (55) of Ref. 2, the subrou- 
tine uses the “constant trace scheme” of Ref. 3. When 
an error condition is detected, the subroutine sets IERR 
to 1 and returns control to the calling program, 

18. Subroutine S09 . Subroutine S09 is called by sub- 
routine STFS. The flowchart and the source program 
listing of S09 are given in Fig. VI-30 and Table VII -33, 
respectively. The objective of this subroutine is to com- 
pute the free-free stiffness matrix and the element load 
vector of element type 9, in the overall coordinate system, 
into locations S and P. The portion of P related with 


pressure loading is generated in subroutine S09. The sub- 
routine generates the values of IPBG, IPEN, and CONS 
values for the handling of the acceleration loading por- 
tion of P in the main program of Link 2, which also 
handles the thermal load portion. The submatrices of the 
free-free stiffness matrix are obtained in the form of 
triple matrix products computed by means of subroutine 
TRM. These submatrices are properly placed in S by 
means of subroutine ADM. If the volume of the element 
is too small relative to a reference volume, an error mes- 
sage is printed out and the generation of S and P is 
skipped. If an error condition is encountered during the 
execution of the subroutine, IERR is set to 1, and control 
is returned to the calling program, 

19. Subroutine Sll. Subroutine Sll is called by sub- 
routine STFS. The flowchart and the source program 
listing of Sll are given in Fig. VI-31 and Table VII-34, 
respectively. The objective of this subroutine is to gen- 
erate the free-free stiffness matrix and partially generate 
the element load vector in S and P, respectively, of 
element type 11, in the overall coordinate system. 
The matrix in S is that of Eq. (61) of Ref. 2, with 
a — b = c = d = e = 0. Subroutine Sll first calls sub- 
routine CORT to obtain and store in X, Y, Z, XD, YD, 
ZD, the coordinates of the vertices in the local coordinate 
system, and the direction cosines of the local axes in 
DIR(3,3). Next, by calling subroutine S07, subroutine Sll 
generates the bending portion of S and P by assuming 
the order as 9. Next, the quantities in S and P are prop- 
erly relocated so that S and P are of order 18. The same 
relocation is applied to vector UV, which is generated by 
subroutine S07. After this, subroutine Sll calls subrou- 
tine S05 to generate the membrane portion of S and P. 
The P vector is partially generated in subroutine Sll. The 
acceleration loading and the thermal loading portions of 
P are handled in the main program of Link 2 (see 
Sect. Ill-A). Subroutine Sll calls subroutine TRAN to 
express P and UV in overall coordinates, and subroutine 
STRA to express S in overall coordinates. The content of 
COMMON location IERR is transmitted intact to the 
calling program for error handling. 

20. Subroutine SI 3. Subroutine S13 is called by sub- 
routine STFS. The flowchart and the source program 
listing of S13 are given in Fig. VI-32 and Table VII-35, 
respectively. The objective of this subroutine is to gen- 
erate the free-free stiffness matrix and partially generate 
the element load vector in S and P, respectively, of ele- 
ment type 13, in the overall coordinate system. Subrou- 
tine S13 first calls subroutine CORT to obtain and store 
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in X, Y, Z, XD, YD, ZD the coordinates of the vertices in 
the local coordinate system, and the direction cosines 
of the local axes in DIR(3,3). Next, subroutine S13 calls 
subroutine SOS to generate the membrane rigidity and 
the corresponding load vector in S and P. The pressure 
load portion of P is generated in subroutine S13, and the 
acceleration loading portion and the thermal load por- 
tion of P are generated in the main program of Link 2 
(see Sect. III-A). Having generated S and P in local co- 
ordinates, subroutine S13 calls subroutine TRAN to ex- 
press P in the overall coordinate system, and subroutine 
STRA to express S in the overall coordinate system. The 
content of COMMON location IERR is transmitted in- 
tact to the calling program for error handling. 

21, Subroutine S15 . Subroutine S15 is called by sub- 
routine STFS. The flowchart and the source program 
listing of S15 are given in Fig, VI-33 and Table VI 1-36, 
respectively. The objective of this subroutine is to gen- 
erate the free-free stiffness matrix and the element load 
vector of element type 15, in locations S and P, expressed 
in the overall coordinate system. Only the thermal load 
portion of P is generated in the main program of Link 2 
(see Sect. III-A). The generation of the free-free stiffness 
matrix is performed as described in Ref. 4. The terminol- 
ogy of Table VII-36 should be interpreted in the light 
of Ref. 4. Subroutine S15 calls subroutine TRIM to ob- 
tain the EM and EN arrays corresponding to M and N, 
respectively, of Ref. 4. The triple matrix products of 
Ref. 4 are performed by means of subroutine TRM, and 
properly placed in S by means of subroutine ADM. The 
first term in Eq. (9) of Ref. 4 is obtained in S by means 
of subroutine SOS. In case of error, IERR location is set 
to 1 and control is returned to the calling program. 

22, Subroutine S17, Subroutine SI7 is called by sub- 
routines STFS and S18. The flowchart and the source 
program listing of S17 are given in Fig. VI-34 and 
Table VII-37, respectively. The objective of this subrou- 
tine is to generate the free-free stiffness matrix and the 
element load vector of element type 17, in locations S 
and P, expressed in the overall coordinate system. Only 
the thermal load portion of P is generated in the main 
program of Link 2 (see Sect. III-A). The generation of 
the free-free stiffness matrix is performed as described 
in Ref, 5. The triple matrix products of this reference are 
performed by means of subroutine TRM, and properly 
placed in S by means of subroutine ADM. The terminol- 
ogy in Table VII-37 should be interpreted in the light 
of Ref. 5. In case of error, location IERR is set to 1 and 
control is returned to the calling program. 


23, Subroutine S18, Subroutine S18 is called by sub- 
routine STFS. The flowchart and the source program 
listing of S18 are given in Fig. VI-35 and Table VII-38, 
respectively. The objective of this subroutine is to gen- 
erate the free-free stiffness matrix and the element load 
vector of element type 18, in locations S and P, expressed 
in the overall coordinate system. Only the thermal load 
portion of P is generated in the main program of Link 2 
(see Sect. III-A). The generation of the free-free stiffness 
matrix is performed as described in Ref. 5. For this pur- 
pose, subroutine S18 first calls subroutine S17 to generate 
the membrane portion of S and P. The triple matrix 
products of Ref. 5 are performed by means of subroutine 
TRM, and properly placed in S by means of subrou- 
tine ADM. The terminology in Table VII-38 should be 
interpreted in the light of Ref. 5. Before returning con- 
trol to the calling program, the subroutine modifies 
vector UV for the inclusion of thermal gradient effects. 
The content of COMMON location IERR is transmitted 
intact to the calling program for error handling. 

24, Subroutine STFS, Subroutine STFS is called by 
the main program of Link 2. The flowchart and the 
source program listing of STFS are given in Fig. VI-36 
and Table VII-39, respectively. The subroutine has one 
argument, which is the type number of the current ele- 
ment being processed by the calling program. The func- 
tion of this subroutine is to call the proper subroutine 
from among SOI, S02, S03, S04, SOS, S07, S09, Sll, S13, 
SIS, S17, and S18 to suit the type number in the argu- 
ment. The functions of these subroutines are to generate 
the free-free stiffness matrix, and partially generate the 
element load vector, in locations S and P, expressed in 
the overall coordinate system. There is no error return 
in the subroutine. 

25, Subroutine STRA , Subroutine STRA is called by 
subroutines S02, S03, S04, Sll, and S13. The flowchart 
and the source program listing of STRA are given in 
Fig. VI-37 and Table VII-40, respectively. The objective 
of this subroutine is to generate in S the description of 
the free-free stiffness matrix, in overall coordinates, 
from the description in local coordinates in S, and the 
directions cosines of local axes in DIR(3,3). The subrou- 
tine assumes that S is an IDS X IDS matrix. By calling 
subroutine TRAN, IDS times, subroutine STRA first ob- 
tains and places the description of each of the IDS 
vectors of S, in overall coordinates, in the same S loca- 
tions, Then it generates in S the transpose of IDS X IDS 
free-free stiffness matrix. Finally, by calling subroutine 
TRAN, again IDS times, subroutine STRS obtains and 
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places the description of each of the IDS vectors of the 
transposed matrix, in overall coordinates, in the same S 
locations. The final matrix is the description of the free- 
free stiffness matrix in the overall coordinate system. 
There is no error return in the subroutine, and all argu- 
ments are implicit. 

26. Subroutine TICK . Subroutine TICK is called by 
the main program of Link 2. It is identical with sub- 
routine TICK of Link 1. For further information, see 
Sect. II-B-13, The source program listing of this program 
is given in Table VII-41. 

27. Subroutine TOPO . Subroutine TOPO is called by 
the main program of Link 2. The flowchart and the 
source program listing of TOPO are given in Fig. VI-38 
and Table VII-42, respectively. The objective of this sub- 
routine is to extract and analyze the descriptive words 
of the element being currently processed by the main 
program of Link 2. The subroutine is identical with sub- 
routine TOPO of Link 1 up to the statement whose num- 
ber is 1450 (see Fig. VI-38), As a result of the analysis 
of the descriptive words, the vertex labels and the prop- 
erty type numbers of the element are obtained in N block 
and in locations IELT, IMET, JPRS, ITIC, ITEM, JSDY, 
JSDZ, JMMX, JMMY, JMMZ, JMFI, JARE, respectively. 
In case of error, the subroutine returns control to the call- 
ing program. 

25. Subroutine TRAN . Subroutine TRAN is called by 
subroutines S03, S04, Sll, S13, and STRA. The flowchart 
and the source program listing of TRAN are given in 
Fig. VI-39 and Table VII-43, respectively. The subrou- 
tine has two explicit arguments. The objective of this 
subroutine is to generate the description of a vector of 
order (IGEM + 1)*IMS*3 in the overall coordinates from 
the description of the vector in the local coordinates, 


and DIR(3,3) (the directions cosines of local axes). The 
description of the vector in the local coordinate system 
is in the array indicated by the first argument, just after 
the entry indicated by the second argument. The sub- 
routine first computes the description of the vector in 
the overall system in DUM block, and then carries it 
on the local description. There is no error return in the 
subroutine. 

29. Subroutine TRIM ♦ Subroutine TRIM is called by 
subroutines SOS, S07, and SIS. The flowchart and the 
source program listing of TRIM are given in Fig. VI-40 
and Table VII-44, respectively. The objective of this 
subroutine is to obtain in blocks EM, EN, and EQ the 
matrices [M], [N], and [L] of Ref. 2 from the informa- 
tion in XD and YD. There is no error return in the 
subroutine. 

30. Subroutine TRM. Subroutine TRM is called by 
subroutines SOS, S07, S09, SIS, S17, and S18. The flow- 
chart and the source program listing of TRM are given 
in Fig. VI-41 and Table VII-45, respectively. The objec- 
tive of the subroutine is to perform triple matrix prod- 
ucts of the type [B] T [A][B] or [C T ][A][B] where [A] 
is always a symmetric matrix of order 3 or less, and [B] 
and [C] matrices of order (3X4) or less. The subroutine 
has five arguments. If the last argument is negative, 
[C r ][A][B] is performed; if the last argument is posi- 
tive, [B] r [A][B] is performed. The order of the sym- 
metric matrix [A] is given by the fourth argument. The 
absolute value of the last argument is the column order 
of [C] or [B]. The matrices [A], [B], and [C] are in- 
dicated by the first, second, and third arguments, respec- 
tively. The subroutine returns control to the calling 
program by placing the triple product into the array 
indicated by the third argument. There is no error return 
in the subroutine. 
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IV. Main Program and Subroutines of Link 3 


A. Main Program of Link 3 

The flowchart and the source program listing of the 
main program of Link 3 are given in Fig. VI-42 and 
Table VII-46, respectively. The logical function of the 
program may be summarized as follows: 

(1) The program generates and stores the upper de- 
composed stiffness matrix in the IST-pointer- 
related vector, and the unknown deflections in the 
IDEF-pointer-related vector. 

(2) Possibly destroying some portions of the decom- 
posed stiffness matrix, the program generates in 
BB array the complete list of nodal deflections, 
and carries them onto the IDEF-pointer-related 
vector. 


(3) If execution of the stress link is requested, i.e., if 
INX = 4, tile program computes into the IST- 
pointer-related vector the forces acting on mesh 
points (see Output Item 20, Sect VI-D, Vol. I). 


i A\ Tf TMV — A tct 
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pointer-related vector the list of labels of the ele- 
ments meeting at the mesh points, immediately 
after the residual forces computed in (3), and 
saves this list on tape IT AS for use in Link 4. 


(5) Depending upon the values of INX and ITAS, the 
main program transfers the control either to Link 4 
or to Link I, as the logically last operation. 

In carrying out function (1), the program calls sub- 
routine VELAS, which requires as arguments the number 
of equations in the system, the pointer of the list of 
pointers of the diagonal elements of the coefficient ma- 
trix, the pointer of the coefficient matrix, and the pointer 
of the right-hand-side vector. The successful solution of 
linear equations is indicated by the zero content of the 
second argument. Function (2) is carried out with the help 
of the information in IBO-, IBB- and IlC-pointer-related 
arrays and within the framework of Table III-l, Vol. I. 
The program produces Output Item 19 from BB block, 
and calls subroutine PUNC for other modes of output 
(see Sect. V-F, Vol. I). Then, the information in BB block 
is carried out to the IDEF-pointer-related vector for use 
in Link 4. To carry out function (3), the program calls 
subroutine RESI, and to produce Output Item 20, it 
calls subroutine RESW. Function (4) is carried out by 
means of subroutine ELST. The mam program, in mea- 
suring the elapsed time in executing Link 3, and solving 
the linear equations, calls subroutine TICK. Output 
Items 18, 19, and 21 are directly produced by the main 
program. 
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B. Subroutines of Link 3 

1. Subroutine ELST* Subroutine ELST is called by 
the main program of Link 3. The flowchart and the 
source program listing of ELST are given in Fig. VI-43 
and Table VII-47, respectively. The function of the sub- 
routine is to generate, for each node, information listing 
the labels of the non-one-dimensional elements meeting 
at a node. This information is listed as a one-dimensional 
array starting immediately after the residual forces pro- 
duced by subroutine RESI (between points E and E r in 
Fig. III-l, Vol. II, basic). For this purpose, 13 words are 
assigned for every mesh point. The first word contains 
the number of non-one-dimensional elements meeting 
at the mesh point, and the remaining words the labels of 
these elements. Whenever there are more than 12 non- 
one-dimensional elements meeting at the mesh point, 
subroutine ELST returns control to the calling program 
by setting ITAS to zero, thus preventing the execution of 
Link 4 even if INX = 4. When the number of non-one- 
dimensional elements meeting at a mesh point and their 
labels are obtained successfully, the subroutine generates 
one logical record on tape ITAS for each mesh point to 
contain such information, and thus releases the corre- 
sponding core area. These records are listed after the 
elemental matrices, and are ordered with the labels of 
the mesh points. The subroutine also counts the one- 
dimensional elements and saves the total in COMMON 
location IONE. If a mesh point does not have any non- 
one-dimensional elements, the respective record in tape 
ITAS contains the label of this mesh point and two nega- 
tive integers. The subroutine, before returning control to 
the calling program, positions the tape to the nodal set 
information of the first mesh point by means of IN num- 
ber of BACKSPACE commands. 

2 . Subroutine PVNC . Subroutine PUNC is called by 
the main program of Link 3. The standard ELAS con- 
tains only the dummy version of this subroutine, as 
shown in Table VII-48. If the user wishes to produce 
Output Item 19 in different media and format, he may 
do so by writing his version of this subroutine, as ex- 
plained in Sect. V-F, Vol. I. The logical function of this 
subroutine is to copy deflections from BB block to the 
desired output media with the desired format. 

3. Subroutine RESL Subroutine RESI is called by the 
main program of Link 3. The flowchart and the source 
program listing of RESI are given in Fig. VI-44 and 
Table VII-49, respectively. The function of this subrou- 
tine is to generate the forces acting at the mesh points. 


in the overall coordinate system, in the IST-pointer- 
related vector. Such forces consist of nonthermal element 
forces less the elastic forces (element stiffness matrix 
times the vertex deflections). In the absence of thermal 
loading, these forces represent the round-off errors at a 
nonboundary point, and the reaction force at a boundary 
point where the deflections are prescribed, or prescribed 
concentrated loads where the deflections are not pre- 
scribed. In this context, these forces are labelled as the 
residual forces. The residual forces are used in Link 4 
to compute average stresses at the boundary points. To 
compute the residual forces, subroutine RESI clears the 
first IND words of the IST-pointer-related vector, and 
considers that the residual forces are to be listed as in 
Table III-3 with increasing mesh-point labels and con- 
forming with Table III-l, Vol. I (i.e., the residual forces 
of the first mesh point are to be listed first, the residual 
forces of the second mesh point are to be listed second, 
etc.). Since tape ITAS is already positioned by the main 
program of Link 2 for this purpose, the subroutine reads 
in sequentially the element matrices (the stiffness matrix 
and the load vector without thermal load contribution) 
one at a time, and performs the operation of "element 
load vector less element stiffness matrix times vertex 
deflections,” and assembles the resulting vector onto the 
vector of residual forces. In the case of subelements, 
the scaling factors discussed in Section III-A are prop- 
erly considered. If an error is detected during the tape 
handling, the subroutine sets the contents of ITAS to 
zero and returns control to the calling program, thus 
preventing the execution of Link 4 even if INX = 4. The 
residual forces are kept intact in the core until the exe- 
cution of Link 4 is completed. 

4. Subroutine RESW. Subroutine RESW is called by 
the main program of Link 3, if INP =£ 0. The flowchart 
and the source program listing of RESW are given in 
Fig. VI-45 and Table VIL50, respectively. The purpose 
of this subroutine is to produce Output Item 20. This is 
achieved by looping on mesh points. At every loop cycle, 
the subroutine first abstracts the residual force of the 
respective mesh point from the list of residual forces in 
the IST-pointer-related vector, and arranges the compo- 
nents to a complete six-component vector in accordance 
with Table III-l, Vol. I, and finally prints a line for these 
components. The ordering of the residual forces is ex- 
plained in Table III-3, Vol. II (basic). In arranging the 
components of a mesh point, the subroutine uses the con- 
stant IELT, which is generated by the main program of 
Link 3 for Output Item 19 (the ordering of Output 
Items 19 and 20 is similar). There is no error return in 
the subroutine. 
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5 . Subroutine TICK . Subroutine TICK is called by the 
main program of Link 3. It is identical with subroutine 
TICK of Link 1. For further information see Section IL 
B-13. The source program listing of this program is given 
in Table VII-5L 

6. Subroutine VELAS . Subroutine VELAS is called by 
the main program of Link 3. The flowchart and the 
source program listing of VELAS are given in Fig. VI-46 
and Table VII-52, respectively. The purpose of this sub- 
routine is to solve linear equations with positive-definite, 
symmetric, and variable-banded coefficient matrices. The 
subroutine has four explicit and no implicit arguments. 
The first argument is the order of the linear system 
(i.e., the number of equations); at entry to the program, 
the second argument contains the pointer of the vector 
listing the pointers of the diagonal elements of the co- 
efficient matrix; the third argument is the pointer of the 
coefficient matrix; the fourth argument is the pointer of 
the right-hand-side vector. Subroutine VELAS assumes 
that the arrays related with the last three arguments are 
all in COMMON. By applying the Cholesky scheme, the 
subroutine first obtains the decomposed matrix (referred 


to in Fig. VI-46 as U(IJ)) on the coefficient matrix (re- 
ferred to in Fig. VI-46 as A(I,J)); then by a forward 
sweep it obtains the auxiliary solution (referred to in 
Fig. VI-46 as Y(I)) in the right-hand-side vector (referred 
to in Fig. VI-46 as B(I)); and finally, by a backward 
sweep, it obtains the solution vector (referred to in 
Fig. VI-46 as X(I)) in the right-hand-side vector (referred 
to in Fig. VI-46 as B(I)). During decomposition, if the 
quantity under the radical sign is nonpositive, the sub- 
routine returns control to the calling program by setting 
the location of the associated diagonal element relative 
to the beginning of the coefficient matrix in the second 
argument. If the first argument is nonpositive, the return 
is made by setting the second argument to —1. The sub- 
routine assumes that a quantity is positive if it is larger 
than the multiple of the smallest diagonal element 
(in magnitude) of the coefficient matrix. During decom- 
position, the subroutine uses NN locations immediately 
after the array related with the third argument to store 
the number of matrix elements in the columns of coeffi- 
cient matrix within the shaded area shown in Fig. II-l, 
Vol. I. Here NN is the order of the system. The subrou- 
tine assumes that the coefficient matrix is arranged as 
described in Table III-3 under IST-pointer-related vector. 
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V. Main Program and Subroutines of Link 4 


A. Main Program of link 4 

The flowchart and the source program listing of the 
main program of Link 4 are given in Fig. VI-47 and 
Table VII-53, respectively. The logical functions of the 
program may be summarized as follows: 

(1) For line elements, by means of subroutine DIMI, 
the program computes stress resultants at the end 
points of the elements and prints out Output 
Item 24. 

(2) For non-one-dimensional elements, it computes, 
with the method described in Sect. II, Vol. II 
(basic), the stresses at the mesh points and prints 
out Output Item 22, by means of Link 4 programs 
other than DIMI. 

(3) It transfers control to the main program of Link 1 
as the logically last operation. 

By checking the contents of IONE (see Sect. IV-B-1), 
the main program performs either function (1) or (2) or 
both. 

If function (2) is to be performed, the program checks 
whether the starting point of vector FF (see Tables III-4 


and III-5, Vol. II, basic) and point E (see Fig, III-l, 
Vol. II, basic) are overlapping. If overlapping occurs, 
Error Message 23 is produced and no stress computation 
is done. Otherwise the main program loops on mesh 
points with the objective of computing stresses at a 
mesh point for each material group and for each class 
group (see Output Item 22 in Sect. VI-E, Vol. I). When 
the loop on mesh points is satisfied, if there are line 
elements in the structure, the main program calls sub- 
routine DIMI for function (1). During the performance of 
function (2), the program calls subroutines ABEQ, BOFI, 
CAS4, DINA, FINDQ, FINDX, GENE, INLZ, LEST, 
MDIN, META, SAME, SETA, and STBS. The program 
calls subroutine TICK to measure the time spent in 
Link 4. The main program is directly responsible for the 
production of Output Items 22 and 25. 

B. Subroutines of Link 4 

L Subroutine ABEQ . Subroutine ABEQ is called by 
the main program of Link 4, if the current mesh point 
ICN is on the boundary of a two- or three-dimensional 
continuum. The flowchart and the source program listing 
of ABEQ are given in Fig. VI-48 and Table VII-54, re- 
spectively. The objective of this subroutine is to generate 
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the first IEQ rows of the augmented matrix A (see 
Table 111*5, Vol II, basic), the corresponding weights in 
vector IWG, and the actual values of the prescribed 
stresses in vector SR, The first IEQ rows of the aug- 
mented matrix A correspond to the IEQ number of stress 
boundary conditions at the boundary point ICN, These 
equations are generated as discussed in Sect, II, Vol, II 
(basic). The subroutine first copies the residual vector 
(see Sect. IV-B-3) of mesh point ICN into RES vector. 
Then, depending upon the class type of current I Cth 
group, it computes certain parameters listed in Table V-l. 
The program carries two right-hand-side vectors for 
class 6 and 8 structures in the strain deflection equations, 
because of the symmetry in strains and curvature changes 
(see Ref. 2), This is very useful in minimizing the column 
order of the strain deflection equations. 

In Table V-l, the parameters used by the subroutine 
are defined. The meanings of these parameters are as 
follows; IEQ is the number of the stress boundary equa- 
tions (note that the number of stress boundary conditions 
is the product of IEQ*IRIG); IRIG is the number of 
right-hand sides in the strain deflection equations; ICOL 
is the column order of the coefficient matrix of strain 
deflection equations; vector N lists the component num- 
ber (see Table VI-6, Vol. I) of the prescribed stress (as 
stated in Sect. VI-E, Vol. I, the local coordinate axes on 
a boundary point are such that the first axis is the outer 
normal of the boundary surface, and the second and the 
third axes are tangential to the boundary surface; 
the stress boundary conditions are expressed in the local 
coordinate system); IREB and IREN are the entry num- 
bers of the beginning and the end, respectively, of the 
portion of vector RES to be used in generating the pre- 
scribed stress values for the right-hand sides of the stress 
boundary condition equations. Because of the ordering 
of the residual forces (first, force components, and then 
moment components) for the second right-hand side, the 
program takes IREB and IREN as IREB + 1 and IDEG, 
respectively. The first and second columns of matrix 
NEK list the labels of the local axes to be used in pro- 
jecting the portion of vector RES for obtaining the pre- 
scribed stress components, for the first and second 
right-hand sides, respectively. Matrix REK, like matrix 
NEK, indicates whether any sign change is to be per- 
formed for the correct sign of the prescribed stress. 
Scale factors CR and CL are used in scaling a stress 
boundary condition equation to achieve similar orders 
of magnitude in the whole set strain deflection equations; 
GR is for the right-hand side, CL for the left-hand side. 
The basic format of a stress boundary condition equation 
is shown in Table V-l. To obtain the components of the 


best-fit strain tensor from the strain deflection equations 
in a manner that satisfies the stress boundary conditions 
more correctly than the remaining equations, the subrou- 
tine assigns the stress boundary equations a weight of 
100 in the corresponding entries of vector IWG. The sub- 
routine also updates the equation count ICON, and saves 
the prescribed stress values in vector SR in the order 
shown in Table V-2. There is no error return in the 
subroutine. 


2. Subroutine ACEL . Subroutine AGEL is called by 
subroutine DINA if the IPIR field of the control card 
(see Table IV-2, Vol. I) is 2. The standard ELAS contains 
only the dummy version of this subroutine, as shown in 
Table VII-55. If the user wishes to prescribe local coor- 
dinate systems at the mesh points of shell structures, he 
may do so by writing his version of this subroutine, as 
explained in Sect. V-E, Vol. I. The logical function of 
this subroutine is to define matrix DIN for the direction 
cosines of the local axes of mesh point ICN. 


3. Subroutine BEST . Subroutine BEST is called by 
subroutines BOFI and QUAD. The flowchart and the 
source program listing of BEST are given in Fig. VI-49 
and Table VII-56, respectively. The objective of this sub- 
routine is to obtain the direction cosines of the normal 
of the best-fit plane (in the least squares sense) related 
with the mesh points listed in the array referenced by the 
second argument and mesh point ICN. The number of 
mesh points listed in the second argument is given by 
the third argument. The subroutine places the direction 
cosines of the normal into the array indicated by the first 
argument. One condition equation is generated for each 
mesh point listed in the array referenced by the second 
argument to express the situation for that point to be in 
the sough t-f or plane. The mesh-point coordinates are ob- 
tained by means of subroutine FINDX. The equation of 
the plane is arbitrarily expressed in a coordinate system 
that is parallel to the overall, but located at a point with 
coordinates 1.15, 1.16, and 1.17 less than those of mesh 
point ICN. Once the condition equations are established, 
the coefficients of variables (i.e., quantities proportional 
to the direction cosines of the normal) are solved by least 
squares, by first premultiplying both sides of the condi- 
tion equations by the transpose of the coefficient matrix, 
and then solving the resulting equations by means of sub- 
routine INV. If the inversion fails in subroutine INV, 
subroutine BEST attempts to approximate the direction 
cosines of the normal, as explained in block 45 of 
Fig. VI -49. This latter process necessitates a vector prod- 
uct, which is carried out by means of subroutine VECT. 
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Table V-l. Values of important parameters used in subroutine ABEQ for various classes (see Sect, V-B-l for discussion) 



Table V-2. Arrangement of prescribed boundary forces 
by subroutine ABEQ in SR vector for the eight class 8 types 
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Before returning control to the calling program, subrou- 
tine BEST calls subroutine UNIT to normalize the vector 
in the first argument. There is no error return in the 
subroutine. 

4 . Subroutine BOFI . Subroutine BOFI is called by 
the main program of Link 4. The flowchart and the 
source program of BOFI are given in Fig. VI-50 and 
Table VII-57, respectively. The objective of this subrou- 
tine is to determine from the element set information in 
NEL whether mesh point ICN is on the boundary. If 
mesh point ICN is not on the boundary, the subroutine 
returns control to the calling program without any 
action. However, if mesh point ICN is found to be on 
the boundary, the subroutine sets INBON = 1 and 
AST = IH* and computes the direction cosines of the 
outer normal of the boundary at mesh point ICN into 
vector BIR. To obtain the direction cosines, subroutine 
BOFI calls subroutine INER to obtain a general vector 
heading towards the structure, and calls subroutine BEST 
to obtain the direction cosines of the best-fit plane to 
boundary nodes neighboring mesh point ICN. After re- 
directing the normal of the plane with the general vector 
heading towards the structure, the normal of the best-fit 
plane is assumed to be the outer normal of the structure 
at the boundary node. If any trouble arises in finding the 
outer normal, subroutine BOFI will assume that mesh 
point ICN is an internal one. The subroutine also gener- 
ates in ARE an average boundary surface area if mesh 
point ICN is on the boundary. The number of repeated 
interelement boundaries in the element set and the num- 
ber of unrepeated element boundaries are used in deter- 
mining whether mesh point ICN is on the boundary. In 
performing its function, BOFI also calls subroutines 
FINDX, SCAL, and UNIT. There is no error return in 
the subroutine. 

5. Subroutine CAS4. Subroutine CAS4 is called by the 
main program of Link 4. The standard ELAS contains 
only the dummy version of this subroutine, as shown in 
Table VII-58. If Output Item 23 is to be produced selec- 
tively, this subroutine should be rewritten by the user, as 
explained in Sect. V-H, Vol. I. The logical function of 
this subroutine is to change the value of IN P as desired 
in the DO loop on mesh points in the main program of 
Link 4. 

6. Subroutine CODI . Subroutine CODI is called by 
subroutine DIMI. It is identical with subroutine CODI 
of Link 2. For further information, see Section III-B-4. 


The source program listing of this subroutine is given 
in Table VII-59. 

7. Subroutine DIMI . Subroutine DIMI is called by the 
main program of Link 4, if IONE is positive. The flow- 
chart and the source program listing of DIMI are given 
in Fig. VI-51 and Table VII-60, respectively. The objec- 
tive of this subroutine is to obtain the end forces of the 
one-dimensional elements in the local coordinate system 
and to produce Output Item 24. For this purpose, the 
subroutine rewinds tape ITAS and processes the mesh 
elements one at a time. If a one-dimensional element is 
encountered, by means of subroutines CODI, STRA and 
TRAN, the element stiffness matrix, the element load 
vector, and the deflection vector of the vertices are first 
expressed in local coordinates of the element (see Fig. VI-1, 
Vol. I), and then the end forces are expressed as the 
product of the element stiffness matrix and the vector of 
vertex deflections less the element load vector. If an error 
is encountered during the tape handling, the subroutine 
sets IERR — 1, ICN = the element number, and the 
explicit argument of the subroutine with the record num- 
ber as read from the tape, and returns control to the 
calling program. 

8 . Subroutine DINA . Subroutine DINA is called by 
the main program of Link 4, if the current class group 
is of shell type (i.e., ICAS is equal to or larger than 5). 
The flowchart and the source program listing of DINA 
are given in Fig. VI-52 and Table VII-61, respectively. 
The objective of this subroutine is to determine the direc- 
tion cosines of the axes in which the stresses are to be 
expressed in DIN and find the value of ANGLE associ- 
ated with these axes. If the IPIR value of the control 
card (see Table IV-2, Vol. I) is larger than 1, subroutine 
DINA calls subroutine AGEL to do the job. Otherwise, 
subroutine DINA calls either subroutine QUAD or sub- 
routine REVO, depending upon whether the shell is gen- 
eral or axisymmetrical type, respectively, to perform its 
function. There is no error return in the subroutine. 

9. Siibroutine EPAN . Subroutine EPAN is called by 
subroutine QUAD, if there are less than eight neighbor- 
ing mesh points in the element set of mesh point ICN 
(subroutine QUAD is called only for the general shell 
case). The flowchart and the source program listing of 
EPAN are given in Fig. VI-53 and Table VII-62, respec- 
tively. The objective of this subroutine is to expand the 
vector containing the labels of the mesh points in the im- 
mediate neighborhood of the current mesh point ICN by 
the element set information of the mesh points in the 
immediate neighborhood of mesh point ICN. When 
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control is transferred to the subroutine, vector NSET con- 
tains the labels of the immediate neighbors of mesh point 
ICN, and NB contains the order of this vector. By mini- 
mum tape handling, the subroutine obtains the element 
set information of each of these immediate neighbors 
from tape ITAS and expands vector NSET with the 
mesh-point labels of the neighbors of neighbors of mesh 
point ICN and updates NB correspondingly. Before it 
returns control to the calling program, the subroutine 
repositions tape ITAS to the position at the time of entry. 
There is no error return in the subroutine. 

10, Subroutine FINDQ. Subroutine FINDQ is called 
by the main program of Link 4 and by subroutine SETA. 
The flowchart and the source program listing of FINDQ 
are given in Fig. VI-54 and Table VII-63, respectively. 
The function of this subroutine is to compute, in overall 
coordinates, the deflection components of the mesh point 
indicated by the first argument into the vector indicated 
by the second argument. There is no error return in this 
subroutine. 

11, Subroutine FINDX . Subroutine FINDX is called 
by the main program of Link 4 and subroutines BEST, 
BOFI, INER, INLZ, QUAD, REVO, and SETA. The 
flowchart and the source program listing of FINDX are 
given in Fig. VI-55 and Table VII-64, respectively. The 
function of this subroutine is to compute the overall co- 
ordinates of the mesh point indicated by the first argu- 
ment into the vector indicated by the second argument. 
There is no error return in the subroutine. 

12, Subroutine GENE. Subroutine GENE is called by 
the main program of Link 4. The flowchart and the 
source program listing of GENE are given in Fig. VI-56 
and Table VII-65, respectively. The objective of this sub- 
routine is to generate the columns of matrix NEL, other 
than the first (the first column of NEL is already gener- 
ated by the main program of Link 4), the corresponding 
matrix MAC, vector ICLAS, and variable IMEL. The 
format of NEL and MAC matrices is given in Table VI-7, 
Voh I. Since the rows of matrix NEL contain information 
about die elements meeting at mesh point ICN, subrou- 
tine GENE calls subroutine TOPO to extract such infor- 
mation from COMMON. Matrix MAC is generated by 
the information in completed matrix NEL. Vector ICLAS 
and variable IMEL are generated as a by-product of the 
generation of matrix MAC. Error conditions that may be 
encountered during the generation of matrix MAC may 
cause the production of Error Messages IS, 19, and 20, 
There is no error return in the subroutine. 


23. Subroutine INER. Subroutine INER is called by 
subroutine BOFI, if mesh point ICN is on the boundary. 
The flowchart and the source program listing of INER 
are given in Fig. VI-57 and Table VII-66, respectively. 
The objective of this subroutine is to generate the com- 
ponents of a vector heading towards the structure at 
mesh point ICN, and store diem in the vector indicated 
by the argument. At the time of entry to the subroutine, 
vector NSET contains the labels of the neighboring mesh 
point. The subroutine simply adds the vectors, joining 
mesh point ICN to its neighbors to obtain the required 
vector. The mesh-point coordinates are obtained by means 
of subroutine FINDX. There is no error return in the 
subroutine. 

14. Subroutine INLZ. Subroutine INLZ is called by 
the main program of Link 4. The flowchart and the 
source program listing of INLZ are given in Fig. VI-58 
and Table VII-67, respectively. The function of this sub- 
routine is to initialize the values of IROT, BST, DIN, W, 
TE, DT, DG, ICOL, IRIG, IDR, ANGLE, ICON, IERR, 
and BAS quantities for the stress computation corre- 
sponding to the current values of ICN/IM/IC (see 
Table III-4). In initializing these values, the subroutine 
assumes that the mesh point is an internal one and the 
local coordinate system is parallel to the overall coordi- 
nate system. Values of TE, DT, and DG are obtained as 
the arithmetical average of those of the related mesh 
elements. Values of IRIG, ICOL, and IDR are obtained, 
depending upon the class type number of the current 
mesh-element group (see Tables III-4, Vol. II, basic, and 
V-l). To perform its functions, INLZ calls subroutines 
FINDX and UNIT. There is no error return in the 
subroutine. 

15. Subroutine 1NV. Subroutine INV is called by sub- 
routines BEST, LEST, QUAD, and REVO of Link 4. The 
flowchart and the source program listing of INV are 
given in Fig. VI-59 and Table VII-68, respectively. The 
purpose of the subroutine is to solve a set of linear equa- 
tions by Gauss elimination. The coefficient matrix is re- 
ferred by the first argument, and the right-hand-side 
vectors are referred by the third argument. The second 
argument is the order of the system, and the fourth argu- 
ment is the number of right-hand-side vectors. When the 
subroutine returns control to the calling program, the fifth 
argument contains the value of the determinant of the 
coefficient matrix, the first argument contains the inverse 
of the coefficient matrix, and the third argument contains 
the solution vector if the fourth argument and the deter- 
minant are nonzero. This subroutine is borrowed from 
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the IBM 1620 library of the Jet Propulsion Laboratory 
as of September 1966. 

16 . Subroutine LEST . Subroutine LEST is called by 
the main program of Link 4. The flowchart and the 
source program listing of LEST are given in Fig, VI-60 
and Table VII-69, respectively. The objective of this sub- 
routine is to obtain the components of the best-fit strains 
from the strain deflection equations. At the time of entry 
to the subroutine, matrix A contains the augmented ma- 
trix of the strain deflection equations, ICON contains the 
number of equations, JMM the number of columns in 
the coefficient matrix, JMR the number of right-hand 
sides (therefore JMX = JMM + JMR is the column 
order of the augmented matrix), and IWG the weight 
assigned to each of the strain deflection equations. Con- 
sidering the multiplicity of the equations as given in 
vector IWG, the subroutine premultiplies both sides of 
the strain deflection equations by the transpose of the 
coefficient matrix, then calls subroutine INV to obtain 
the best-fit strain components, and reorders the compo- 
nents in matrix C and redefines JMM and JMR such that 
the first column contains the usual strain components 
and the second column contains the angular strain (cur- 
vature change) components. For axisymmetrical struc- 
tures, cases in which mesh point ICN is on the axis of 
revolution are handled separately in the subroutine by 
considering the thermal strains, if there are any. For 
shells of revolution, if mesh point ICN is on the axis, 
vectors DDIS, DROT, and DCOR contain the relative 
displacement, relative rotation, and relative coordinate 
of the opposite end of the nodal line with respect to 
mesh point ICN. These vectors are expressed in the local 
coordinate system of mesh point ICN. If the inversion 
performed by subroutine INV is not successful (indicated 
by zero determinant), subroutine LEST sets IERR = 1 
and returns control to the calling program. If INP is 2, 
the best-fit strain components are printed out as part of 
Output Item 23. 

17. Subroutine Af DIN. Subroutine MDIN is called by 
the main program of Link 4, if mesh point ICN is on the 
boundary. The flowchart and the source program listing 
of MDIN are given in Fig. VI-61 and Table VII-70, re- 
spectively. The objective of this subroutine is to obtain 
the direction cosines of the local coordinate axes at mesh 
point ICN with the specifications described in Sect. VI-E, 
Volume I; i.e., the first local axis is always normal to the 
boundary. At the time of entry to the subroutine, matrix 
DIN contains the direction cosines of the local axes of 
mesh point ICN, assuming that the mesh point is not on 


boundary, and vector BIR contains the direction cosines 
of the outer unit normal vector of the boundary surface 
at mesh point ICN. In reorienting the local axes, subrou- 
tine MDIN calls subroutines UNIT and VECT. There is 
no error return in the subroutine. 

18. Subroutine META . Subroutine MET*\ is called by 
the main program of Link 4. The flowchart and the 
source program listing of META are given in Fig. VI-62 
and Table VII-71, respectively. The objective of this sub- 
routine is to obtain the material matrix (see Fig. III-2b, 
Vol. I) and thermal expansion coefficients of the current 
element group associated with ICN/IM/IC, in DD and 
AL1, AL2, AL3, respectively, in the local coordinate sys- 
tem of mesh point ICN. If the material axes of the cur- 
rent group are not parallel to the local axes of mesh point 
ICN, subroutine META calls subroutine ROTA to ex- 
press the material matrix in the local coordinate system. 
Before returning control to the calling program, subrou- 
tine META rearranges the rows and the columns of DD 
such that the material matrix is arranged with the order 
of 11, 22, 12, 33, 13, 23. There is no error return in the 
subroutine. 

19, Subroutine QUAD . Subroutine QUAD is called by 
subroutine DINA if a general shell structure is under 
question. The flowchart and the source program listing 
of QUAD are given in Fig. VI-63 and Table VI1-72, 
respectively. The objective of the subroutine is to gen- 
erate in DIN the direction cosines of the local axes of 
mesh point ICN of the shell structure, and find the value 
of ANGLE. The subroutine first obtains in vector MSET 
the labels of the nodes appearing in the mesh elements 
corresponding to the current values of ICN/IM/IC. Then 
it obtains in ZD a vector in the general direction of shell 
normal (block 10* of Fig. VI-63). After this, the subrou- 
tine extracts from vector MSET a list of unrepeated 
labels in vector NSET. The order of NSET is in NB, If 
NB is not smaller than 9, a best-fit quadratic surface 
passing through mesh point ICN and its immediate 
neighbors may be possible. If NB is smaller than 9, sub- 
routine QUAD calls subroutine EPAN to enlarge vector 
NSET and NB to include in the list the labels of the 
immediate neighbors of the mesh points that are already 
included in vector NSET, without repetition. 

Next, by calling subroutine BEST, subroutine QUAD 
attempts to generate in vector ZTA the direction cosines 
of the normal of a best-fit plane (in the least squares 
sense) to the family of mesh points listed in vector NSET. 
If this fails, vector ZD is taken as vector ZTA. Then, 
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assuming that the first local axis is in the direction of 
vector BAS, the subroutine generates the first approxima- 
tion of matrix DIN (the first, second, and third columns 
of matrix DIN are referred to as vectors XII, ETA, and 
ZTA). If NB is not smaller than 9, subroutine QUAD 
generates in matrix D the condition equations for a quad- 
ratic surface passing through the mesh points listed in 
vector NSET. The condition equations are obtained in the 
first approximation of the local axes. These equations are 
next solved by a least squares method with the help of 
subroutine INV. If the solution is successful, the local 
normal is taken as the normal direction of this quadratic 
surface, and matrix DIN is corrected accordingly. With 
the use of the new matrix DIN, the process of locating 
a best-fit quadratic surface is repeated to increase the 
accuracy. If the process of finding a best-fit quadratic 
surface fails, the subroutine prints out Error Message 21 
and returns control to the calling program with the first 
approximation of matrix DIN. Otherwise, the subroutine 
examines the value of IPIR. If IPIR is larger than 1, the 
subroutine rotates the local axes about the normal until 
the first local axis is in the smaller principal curvature 
direction of the best-fit quadratic surface. Initially zero 
value of ANGLE is changed to the degrees value of the 
angle between vector BAS and the final orientation of 
the first local axis. In performing its functions, QUAD 
also calls subroutines FINDX, SCAL, UNIT, and VECT. 
There is no error return in the subroutine. 

20 . Subroutine REVO . Subroutine REVO is called by 
subroutine DINA if a shell of revolution is under ques- 
tion. The flowchart and the source program listing of 
REVO are given in Fig. VI-64 and Table VII-73, respec- 
tively. The objective of this subroutine is to generate in 
matrix DIN the direction cosines of the local axes by 
fitting, if possible, a fourth-order polynomial to the me- 
ridional curve. The normal of this curve is taken as the 
direction for the third local axis. For this purpose, 
the subroutine first finds the labels of the first four im- 
mediate neighbors of mesh point ICN and places them 
in vector NSET. Vector NSET also contains the label of 
ICN. The order of NSET is NB. If for some reason NB 
is less than 5, the subroutine fits a polynomial curve of 
degree NB-1 to the meridional curve. The conditions for 
the mesh points listed in vector NSET on the polynomial 
curve are generated on matrix B and vector C. The un- 
known coefficients of the polynomial are obtained from 
these conditions by means of subroutine INV. If the sys- 
tem is singular, and a polynomial curve fit is not possible, 
the program will use the line segment joining the mesh 
points confining mesh point ICN as the fitted curve and 


cause the production of Error Message 22. The normal 
direction of the fitted curve is taken as the third local 
axis. The overall Z axis is taken as the negative of the 
second local axis. The first local axis is tangent to the fit- 
ted curve and heads towards the increasing arc distance 
on the meridian (the meridian curve is assumed directed). 
The first, second, and third columns of matrix DIN are 
named as vectors XII, ETA, and ZTA, and contain the 
direction cosines of the first, second, and third local axes. 
In obtaining the direction cosines of the local axes, sub- 
routine REVO calls subroutines FINDX, SCAL, UNIT, 
and VECT. 

21. Subroutme ROTA . Subroutine ROTA is called by 
subroutine META if the local axes are not parallel to the 
material axes. The flowchart and the source program 
listing of ROTA are given in Fig. VI-65 and Table VII-74, 
respectively. The objective of this subroutine is to ex- 
press the material matrix DD in the local coordinate sys- 
tem defined by matrix DIN (see Table III-5, Vol. II, 
basic). There is no error return in the subroutine. In 
obtaining various unit vectors, subroutine ROTA calls 
subroutines SCAL, UNIT, and VECT. 

22. Subroutine SAME . Subroutine SAME is called by 
the main program of Link 4. The flowchart and the 
source program listing of SAME are given in Fig. VI-66 
and Table VII-75, respectively. The objective of this sub- 
routine is to output stresses for the current ICN/IC/IM 
group, in the local coordinate system if mesh point ICN 
is a boundary point, and the group is not of shell type. 
Therefore, this subroutine produces the last portion of 
Output Item 22. There is no error return in the subroutine. 

23. F unction SCAL. Function SCAL is called by sub- 
routines BOFI, QUAD, REVO, ROTA, and SETA of 
Link 4. The flowchart and the source program listing 
of SCAL are given in Fig. VI-67 and Table VII-76, re- 
spectively. The objective of the program is to return to 
the calling program the scalar product of the vectors re- 
ferred by the first and second arguments. There is no 
error return. 

24. Subroutine SETA. Subroutine SETA is called by 
the main program of Link 4 once for every mesh ele- 
ment in the group of current ICN/IM/IC. The flowchart 
and the source program listing of SETA are given in 
Fig. VI-68 and Table VII-77, respectively. The objective 
of the program is to add one additional row to the aug- 
mented matrix of strain deflection equations for each 
direction joining mesh point ICN to the remaining ver- 
tices of the mesh element. The subroutine assigns a 
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weight of 10 or 1 to the equation of a direction, depend- 
ing upon whether the vertex is on the boundary or not. 
The weights are recorded in vector IWG. The subroutine 
generates the row of the augmented matrix as described 
in Sect. II, Vol. II (basic), by considering thermal strains. 
When a row is added to the augmented matrix, row count 
ICON is also updated. In obtaining the thermal strain 
per unit temperature in a given direction, subroutine 
SETA calls subroutine TEMP. In achieving various vec- 
tor operations, it also calls function SCAL, and subrou- 
tines FINDQ, FINDX, UNIT, and VECT of Link 4. 
There is no error return in the program. 

25. Subroutine STRA. Subroutine STRA is called by 
subroutine DIM I. It is identical with subroutine STRA 
of Link 2. For further information, see Sect. II I -B -25. The 
source program listing of this subroutine is given in 
Table VII-78. In performing its function, STRA calls sub- 
routine TRAN. 

26 . Subroutine STRS. Subroutine STRS is called by 
the main program of Link 4. The flowchart and the 
source program listing of STRS are given in Fig. VI-69 
and Table VII-79, respectively. The objective of this sub- 
routine is to obtain the components of the best-fit stress 
tensor for current ICN/IM/IC, and list them in vector 
SR to comply with Table VI-6, Vol, I. At the time of 
entry to the subroutine, matrix DD contains the material 
constants, matrix C contains the components of the best- 
fit usual and angular strains in the first and second col- 
umns, respectively, and SR contains the prescribed 
stresses in the order shown in Table V-2. The subroutine 
first generates in vector RED the best-fit stresses, then 
modifies them with the prescribed stresses in SR, and 
finally copies the final set into vector SR in the order 
shown in Table VI-6, Vol. I. There is no error return in 
the subroutine, 

27. Subroutine TEMP. Subroutine TEMP is called by 
subroutine SETA if temperature loading of an anisotropic 
material is under question. The flowchart and the source 
program listing of TEMP are given in Fig. VI-70 and 
Table VII-80, respectively. The objective of this sub- 
routine is to obtain the lineal strain in the direction 
given by the unit vector in XF (see the comment in 
Table Vll-80) due to unit temperature increase, and to 
store this quantity in the explicit argument. To do this, 
the subroutine uses matrix W generated by subroutine 


ROTA and XF generated by subroutine SETA as DCAR. 
There is no error return in the subroutine. 

28. Subroutine TICK . Subroutine TICK is called by 
the main program of Link 4. It is identical with sub- 
routine TICK of Link 1. For further information, see 
Sect. II-B-13. The source program listing of this program 
is given in Table VII-81. 

29. Subroutine TOPO. Subroutine TOPO is called by 
subroutine GENE. It is identical with subroutine TOPO 
of Link 2. For further information, see Sect. III-B-27. 
The source program listing of this program is given in 
Table VII-S2. 

30. Subroutine TRAN . Subroutine TRAN is called by 
subroutines DIMI and STRA of Link 4. It is identical 
with subroutine TRAN of Link 2. For further informa- 
tion, see Sect. III-B-28. The source program listing of the 
program is given in Table VII-83, 

31. Subroiitine UNIT. Subroutine UNIT is called by 
subroutines BEST, BOFI, I.NLZ, MDIN, QUAD, REVO, 
ROTA, and SETA of Link 4. The flowchart and the 
source program listing of UNIT are given in Fig. VI-71 
and Table VII-84, respectively. The objective of the sub- 
routine depends upon the contents of the second argu- 
ment. If the second argument is zero, the subroutine 
computes the magnitude squared of the vector indicated 
by the first argument and returns control to the calling 
program. If the second argument is nonzero, the sub- 
routine replaces the vector in the first argument with a 
unit vector and the second argument with the magnitude 
of the original vector. If the second argument, at the 
beginning, is a positive number, the unit vector is parallel 
and in the same direction as the original vector. If the 
second argument, at the beginning, is a negative num- 
ber, the unit vector is parallel and in the opposite direc- 
tion of the original vector. There is no error return in 
the subroutine. 

32. Subroutine VECT. Subroutine VECT is called by 
subroutines BEST, MDIN, QUAD, REVO, ROTA, and 
SETA of Link 4. The flowchart and the source program 
listing of VECT are given in Fig. VI-72 and Table VII-85, 
respectively. The objective of this subroutine is to obtain 
in the vector indicated by the first argument the cross- 
product of the vector in the second argument times the 
vector in the third argument. There is no error return in 
the subroutine. 
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VI. Semidetailed Flowcharts 


This section contains semidetailed flowcharts of ELAS/ 
Level 3. The flowchart of each program element is treated 
separately, and given a figure number. The flowcharts are 
arranged alphabetically by the subroutine names, under 
the main program of each link. The meanings of the sym- 
bols used in the flowcharts may be obtained from the text 
description of the corresponding subroutine given in the 
preceding sections and/or Tables III-2 and IIL4 of Vol. II 
(basic). Each flowchart should be considered together 
with the corresponding source program listing in Sect. VII, 
and the descriptive paragraph of the earlier sections. The 
number attached to a block in a flowchart is the number 


of the first statement in the source program listing corre- 
sponding to this block. If the first statement does not have 
a statement number, the nearest statement number is used 
with an asterisk in the block. An asterisk before the num- 
ber in the block means that the first statement of the block 
is before the statement indicated by the block number. An 
asterisk after the number in the block means that the first 
statement of the block is after the statement indicated by 
the block number. Multiple asterisks indicate qualita- 
tively the distance between the statement with the num- 
ber and the first statement of the block in the source 
program listing. 
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PRECEDING PAGE BLANK NOT FILMED 


MAIN PROGRAM OF LINK 1 



/ 4494 ^\ 


Call subroutine TABL for 
title page 

/^26\ 

Read in material properties, 
check sequence of type 
numbers, store, and list 
if requested 


Read in pressures, if any, 
check sequence of type 
numbers, store, and list 
if requested 

/6^8\ 

Read in thicknesses. If any 
check sequence of type 
numbers, store, and list 
if requested 

/M7\ 

Read in temperature increases, 
if any, check sequence 
of type numbers, store, 
and list if requested 

/S^6\ 

Read in y-temperature 
gradients, if any, check 
sequence of type numbers, 
store, and list ?f requested 

/&\ 5 \ 

Read in z-temperature 
gradients, if any, check 
sequence of type numbers, 
store, and list if requested 

/6^4\ 

Read in cross-sectional areas, 
if any, check sequence of 
type numbers, store, and 
fist if requested 

/6^3\ 

Read in torsion constants, 
if any, check sequence of 
type numbers, store, and 
list if requested 


Error 

300 ) 


Error 

—hW 300 J 

Error A A 

— *4 300 1 


Error /^\ 

—hM 300 \ 


Error /* *\ 

— *4 300 J 

Error A 
— 300 J 


Error 'A 
— *4 300 1 



Fig. VI-1. Flowchart of main program of Link 1 (input link) 
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f?95?*\ 

Call subroutine SR AT Tor 
connectivity informolion 
and possible relabelling 


r - . (S20\ 

List displacement and force 
boundary conditions if 
requested 


Read in deflection boundary 
conditions from cords 




Call subroutine BUNG to 
generate deflection 
boundary conditions 


Complete generation of IBB- 
and [BO -pointer-related 
vector; 


Store concentrated load 
vector properly 


f 31 73 \ 

Check deflection boundary 
conditions for errors; 
modify IBB-, IBO-, and 
1 1C “pointer-related 
vectors by the deflection 
boundary conditions 


Read in prescribed 
concentrated loads; 
check for possible 
errors and store 


Update pointer of reduced 
stiffness matrix 


See if DUMMY area in 
COMMO N starts before 
stiffness matrix; if so, 
print message 


List erroneous multiple 
deflection boundary 
conditions, if any, and 
ignore them 



Print error message; set 

1 ERR = 1 


Coll subroutine ME5G to 
generate mesh information 


f requested, list mesh 
information extracted by 
subroutine TOPO 


Measure elapsed time 
and print 


Read END card of job 


Skip input cards of 
this job up to and 
including END card 


Print |A and AA 
blocks 



Fig, VI-1 (contd) 
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Fig* VI-2* Flowchart of subroutine ARAN (Link 1) 
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Fig. VI-2 (contd) 
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SUBROUTINE COOR 



Fig. VI-3. Flowchart of subroutine COOR (Link 1) 
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SUBROUTINE EXCH 


Compute column numbers in 
ABIN matrix of 
extremes within bands 
of rows (and columns) to 
be interchanged 


Interchange words in that 
portion of rows that is 
within the band 


/too* A 

Compute word counts (i.e., 
column numbers in ABIN) 
and bit counts of columns 
corresponding to rows 
nterchanged 



Interchange JBth bit of Jth 

interchange JBth bit with 

ward with JPBth bit of J Pth 

JPBth bit in J = J Pth 

word in every row within 

word in every row within 

the band 

the bond 


FUNCTION LEBIN {A, I) 


Save index register 1 (XR1) 


Load accumulator from 
location I (second 
argument, which is a 
FORTRAN integer) 


Place complement of I 
into XRI 


Fig. VI-4. Flowchart of subroutine EXCH (Link 1) 


Load accumulator logically 
from location A (first 
argument) 


Make accumulator zero or 
nonzero depending upon if 
Ith bit of A is zero or 1 by 
ANDlng TABLE, I to 
accumulator 


^Accumulator zero?^ 


Load accumulator with 

FORTRAN integer I 


I Restore index register I (XRl)j 



Fig. VI-5. Flowchart of function LEBIN (Link 1) 
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SUBROUTINE ME ST 




Fig. VI-7. Flowchart of subroutine MEST (Link 1) 
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Shift fast -read 20 words 
back and set NBE I r 

NFI = 20 






Set 1 ERR - 0 


Error. Set 1 ERR =1 





1 


[ 



Fig. VI-7 (contd) 
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SUBROUTINE OUT FT 



Fig. VI-8. Flowchart of subroutine OUTPT (Link 1) 
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SUBROUTINE SRAT 



( Generate label vector (SIR, 
compute column order of 
ABIN, and clear ABIN orea 


Loop on elements (M) 
sequentially to generate 
connectivity matrix ABIN 




Obtain descriptive 
information of Mth element 
by calling subroutine TOPO 




fObtai n number of vertices 
(IMS) of Mth element; check| 
if nodes exist 




Expand element vertex vector 
by those nodes that are 
refoted to the vertices by 
dbc input units 




Loop on vertices (I) of Mth 
element, sequentially 


/*wu\ 


Set IB cb row of ABIN 
corresponding to Ith vertex, 
and KN as number of 
suppressed degrees of 
freedom of Ith vertex 





A 

Loop on vertices (J) of 
Mth element 


Read in new labels and 
corresponding IMAX values 


1100 , 



Set JB os column bit count 
of ABIN corresponding to 
Jth vertex and KM os 
number of suppressed 
degrees of freedom of 
Jth vertex 




Print error message 






Call subroutine ARAN for 
obtaining adjusted IMAX 
values and passible 
relabelling 


Initialize IMAXB, IMAXN, 
KN r L&AND, and LI BO 
for first node (working 
label) 


Loop on nodes (l-working 
labels) sequentially to 
generate IBAND vector; 
compute IMAXG 



I Compute KN as total number | 
of suppressed degrees of 
freedom between nodes 

IMAXB and IMAXN 
(working lobels) 


/21Qo\ 


Compute IMAXN end IMAXB 
for next node 


/*2no\ 


A 



Compute bondwidths of 
retained equations of Ith 
node into IBAND vector 

Loop on 1 
satisfi ed? 

^ No ^ 

© 
1 



Loop on I satisfied ? 


No 


Set total number of retained 
unknowns into (SUM 


*811 


Fig. VI-9. Flowchart of subroutine SRAT {Link 1) 
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Fig. VI-9 (contd) 


SUBROUTINE TABL 



Fig. VI-10. Flowchart of subroutine TABL (Link 1) 
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SUBROUTINE TICK (HIM) 



Fig. VI-1 1. Flowchart of subroutine TICK (Link 1) 
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SUBROUTINE TOPO 



Fig. VI-12, Flowchart of subroutine TOPO (Link 1) 
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Fig. VI-12 (contd) 



Print message about error and 
mode of correction 



Return 
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MAIN PROGRAM OF LINK 2 




Fig. VI-13. Flowchart of main program of Link 2 (generation link) 
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INP > l? 


I Print out element load vector 


Add contributi 
element of element load 
vector to reduced load 


Loop on degrees of freedom (IJ 
at a node for assembling 
element stiffness and load 


Loop on degrees of freedom 
(J) at o node 


Loop on vertices (K) 

sequentially 


Loop on vertices (L) 
sequentially 


Set IE and 15 as associated row 
numbers of free-free element 
ond overall stiffness 
matrices, respectively 


Set JE and J5 as associated 
column numbers of free- 
free element and overall 
stiffness matrices, 
respectively 


Coll subroutine DARN to 
generate IBS and CCCI 
vectors and IQE (number of 
related rows) 


Cell subroutine DARN to 
generate J B5 end CCCJ 
vectors ond JQE (number 
of related columns) 



Loop on related rows (IQ) 


Set IB ond CCURI as 
associated row number / 
and constant, respectively, 
of reduced stiffness motrix 



Fig. VI-13 (contd) 
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SUBROUTINE ADM (S, IDS, A, M, IB r JB f C) 



Fig. VI-14. Flowchart of subroutine ADM (Link 2) 
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SUBROUTINE BEAM 


A 



Fig. VI-15. Flowchart of subroutine BEAM (Link 2) 
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SUBROUTINE COD I 



| Compute direction cosines 
oF element axis as those 
of local x-axis into 
D«(l,l), 0IR(1,2),DIS(I,3)| 




Set SIGNF = -1. 


Set SIGNF ■« +1 . 

L_ 





Compute direction cosine; 


Compute direction cosines 


Compute direction cosines 

of local y-axis accordingly 


of local y-axis accordingly 


of local y-axis accordingly 

into second row of DIR 


into second row of DIR 


into second row of DIR 




Compote direction cosines 
of local z-azis as cross 
product of unit vectors on 
z~ and x-cixbs into third 
row of DIR 


Compute direction cosines 
of local y- end z “axes into 
second and third rows of DIR | 


Compute angle F| 
in radian units 


- 



M 

1 


/t^Q\ 


Error. Set I ERR = 1 


Compute direction cosines 
of local axes x, y, and z 
into rows of DIR 




Return 


Fig. VI-16. Flowchart of subroutine CODI (Link 2) 
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SUBROUTINE CORT 



Fig. VI-17. Flowchart of subroutine CORT (Link 2) 
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SUBROUTINE CUTE (ITTM) 


Set NAV - NAV + 1, 
KBAS = KNOO - l 


Decrease sequence nu 
in N block by IMST 


Set ITTM “ 5, IMS 
JEN = 20, IEN ■ 


Set ITTM = 5, liV 
JEN = 20, IEN 


Copy necessary node label 
into NOO block 


Set IELT = IELT - 1, 
IDS = M5*IDEG 


Loop on J to copy labels 
of necessary nodes from N 
block to NOO block 


Find sequence ni 
in NOD block 


Quadrilateral case. Compute 

Hexabedrol case. Compute 

sequence number of node 

sequence number of node 

in block N 

in block N 

* 1 

,, * 

© 


Fig. VI-18, Flowchart of subroutine CUTE (Link 2} 
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SUBROUTINE DARN (KS, KBS, CCC, KQ£) 



ISORfh element 

absolute value 

I BO vector - ICOMP 


| Set iNCRth elements of KBS 
and CCC vectors as absolute | 
value of l50Rth element of 
IBB and <* ISORTH element 
of C vectors, respectively; 
and increase I NCR by 1 . 


Set KQE = I, KBS(l) = KB, 
CCC(l) = KBth element of 
C vector 



Fig. VI-19. Flowchart of subroutine DARN (Link 2) 
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SUBROUTINE DMM (A, 6, M, C) 



Fig. VI-20. Flowchart of subroutine DMM (Link 2) 


SUBROUTINE ELDI 



Fig. VI-21. Flowchart of subroutine ELDI (Link 2) 
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SUBROUTINE PL BE 


Compute address of 
torsional constant Into 

ICIXJ 


Compute address of y -moment 
of inertia into ICIYJ 


SUBROUTINE RLOC 


L2HJ 

Compute upper half of 
6x6 stiffness matrix of 
grid beam into A 


Fig. VI-22. Flowchart of subroutine PLBE (Link 2) 


Compute Final column and 
row numbers (JJN and I IN) 
of A, and constants JRE and 
L for location in S 



Loop on rows (I) of A from 
II TO IIN 



Fig. VI-23. Flowchart of subroutine RLOC (Link 2) 
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SUBROUTINE 501 


Prepare for generation of 
element stiffness matrix {$) 
in overall coordinate syste, 


Loop on columns (I) of 
element stiffness matrix 


Compute address of cross- 
sectional area into ICARJ, 
and set wind direction into 
DUG block 


Compute pointer of 1th 
column 


Call subroutine ELD I to 
generate pressure direction 
PD, member axis direction 
T<1}, TO), T(5), and 
PN = TxPO ; 


Loop on rows (J) of 
element stiffness matrix 


Compute location of currer 
element of stiffness 
matrix and generate it 


Prepare for contribution of 
pressure to element locxf 
vector by setting PRCO, 
1P&G, and I PEN values 



load vector by setting 
CONS, IP&G, and I PEN 


Error, Set I ERR - 1 


Loop on J 
satisfied? 


Fig. VI-24. Flowchart of subroutine $01 (Link 2) 


JPL TECHNICAL REPORT 32-1240 















SUMOUTINE S02 



fig. VI-25. Flowchart of subroutine S02 (Link 2) 
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Fig. VI-26. Flowchart of subroutine S03 (Link 2) 
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Fig. VI-27. Flowchart of subroutine S04 (Link 2) 
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SUBROUTINE S05 



Fig. VI-28. Flowchart of subroutine $05 (Link 2) 
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jL 

4022*** 

By coifing subroutine TRM, 
generate [EN] T [D33] [EN] 
into [Oj 




Fig. VI-29. Flowchart of subroutine S07 (Link 2) 
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SUBROUTINE S09 





Fig. VI-30. Flowchart of subroutine S09 (Link 2) 
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SUBROUTINE 511 



Fig, VI-31. Flowchart of subroutine SI 1 (Link 2) 


SUBROUTINE 513 



Fig. VI-32. Flowchart of subroutine S13 (Link 2) 
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Fig. VI-33. Flowchart of subroutine SI 5 (Link 2) 
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✓''slope of Lth srde v v s ^ 
elative to ynoxis withir^ 
s. tolerance ER2? 


Set Q22 ” Q23 - 0 and 
Q33 = YYY 



*© 


/ First N 
end on Y - axis 
\ ✓ 


Second end !$ on Y-axis 
Set on N the sequence 

number of node 

following second end 


Noting M = i r N = i + 1, 
and K = 1+2, compute 


4(r. + r. +2 )A, and 
(s. + s.^A into Q22, 


Q23, and Q33r 
respectively 


Noting L = i and M = i + 1, 
compute 18p,A, 4 r.A, and 

s.A into Q22, Q23, and 
Q33, respectively 


Increase 0(2,2), Q<2 3), 
and 0(3,3) by Q22/(9‘A2), 
Q23/(2 "A ), and 033/ 
(,5*A2), respectively 


Loop on L 
satisfied? 


Complete [Q] matrix as [F] 
matrix md set JAX - 4 


First end is on Y-axis. Sat 
N - M and then M = L 


Generate [033] as d [F J by 
using 221(12) and [Q] 


Set in K the sequence 
number of node following 
Nth node 


By calling subroutine TRM, 

1 generate [EQ] T [D33][EQ] 
into [q] : 


Fig. VI-33 (contd) 


Generote CAX vector for 
possible case of “2 nodes 
on Y“oxis“ 


JPL TECHNICAL REPORT 32-1240 















Fig. VI-33 («ontd) 
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SUBROUTINE S17 



Compute length and abscissa 
of midpoint of segment 
Into BOY and XAV 



Compute direction cosines 
of 1-2 direction into AL 
and BE and set 
GA = BOY XAV 



Set first row of Q as 
[~AL AL -BE BE] 



Set FI = TE/GA C2lTis 
dropped in all element 
matrices) 



By calling subroutine TRM, 
generate [-AL AL -BE BE]T 
x[DW,l)][-ALAL-BE BE] 
on [EQ] 



By calling subroutine ADM, 
add FI multiple of 4 x-4 
[EQ] matrix on element 
stiffness matrix S, starting 
at location (1,1) 



Define FI = TE*D33(1 ,2) 




Fig. VI-34. Flowchart of subroutine S17 (Link 2) 
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Fig. VI-34 (contd) 
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p* \/i ap _ £ t i! r v ft /i * i a» 

F:g. V.-35, nunwiuii u> »ui/rvuiino gio (uriK a ) 



5*1 [Q] =(&OV) 4 /4 [' 1 


I 1 



Define FI = FI *E22(1 , 1) 



By calling subroutine ADM, 
odd FI multiple of [Q] as 
part of transverse shear 
stiffness matrix on element 
stiffness S, starting at 
location (5, S) 



Set [Q] = 

-(SOY) 2 *YD(1)/2 [.; .;] 



By colling subroutine ADM, 
add FI multiples of [Q] and 
[ov os port of transverse 
shear stiffness matrix an S, 
starting at locations (1,5) 
and (5, 1) 



Define [Q] = 

(BOV) 2 *XD(l)/2 [.; _JJ 



By calling subroutine ADM, 
add FI multiples of [O] and 
[QJT as part of transverse 
shear stiffness matrix on 5, 
starting at locations 
(3,5) and (5,3) 



Complete thermal 
distortions vector UV by 
thermal rotations of 
free - free element 



Return 
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SUBROUTINE STRA 




Fig. VI-37. Flowchart of subroutine STRA {Link 2) 
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SUBROUTINE TORO 




Fig. VI-38. Flowchart of subroutine TORO (Link 2) 
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SUBROUTINE TRIM 


SUBROUTINE TRAN (A, IFS> 




Fig. VI-39. Flowchart of subroutine TRAN (Link 2) 



Fig. VI-40. Flowchart of subroutine TRIM (Link 2) 


SUBROUTINE TRM (A, B, C, M r N1) 



Fig. VI-41 . Flowchart of subroutine TRM (Link 2) 
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MAIN PROGRAM OF LINK 3 





Fig. Vi-42. Flowchart of main program of Link 3 (deflection link) 
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SUBROUTINE ELST 



A 

Compute pointer of word 
that contains label of first 
vertex into KK, using KJ 



Loop on vertices (J) of fth 
element 



Find oddress KK of word 
ihot contains label NN 
of Jth vertex of the Ith 
element. Obtain label 
NN 



Compute address of first 
word of nodal set 
information of NNth 
node into ISNI, and its 
contents plus 1 into 16 
(number of elements at 
this node) 



Update element count of 
NNth node by IE, and 
store Icbel of this element 
(|£+l)st word of 
element set information of 
NNth node 



Fig, VI-43. Flowchart of subroutine ELST (Link 3) 



Print messqge that there are 
too many elements at this 
node for allocated space 
in COMMON and set 
indicator INCT to 1 
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Fig. VI-43 (contd) 
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SUBROUTINE RESI 


Cieer IND vvords in beginning 
of stiffness matrix area for 
residual Forces 


Compute contribution of 
S(KK) to element nodal 
forces (excluding thermal 
loads) of element in P 
vector,, ond update P 


» 70 \ 

f \ 




V ) 



Loop on elements (JJ) 

X 




V 

No ^ 

^ Loop on 


Read JJth record from tape 
HAS for elemental 
information and matrices 
of JJth element 


Compute oddress 1ST I in 
overall residual force 
vector of word 
corresponding to P(l) 


NAV < 2 X No 


Update corresponding 
element in overoli 
residual vector by 
-CF*P{I) 


Single element case. Set 
CF = 1. 


Multiple element case. 

Set CF = 0.5 


Loop on 
J Satisfied 


( 9 A) 

^V*DoC5 

✓element label on s 
tape correspond 


Loop on rows of Free- free 
element stiffness 
matrix (I) 


Prepare to compute count of 
element in Ith row of 
element stiffness matrix 


Loop on columns of free- 
free element stiffness 
matrix (K) 


Compute count of element 
(I# J) of 5 into KK, and 
address of corresponding 
deflection component into 
I0EFK 



Fig. VI-44. Flowchart of subroutine RESI (Link 3) 
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SUBROUTINE RE5W 



Fig. VMS. Flowchart of subroutine RESW (Link 3) 
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SUBROUTINE VELAS 
(NN, f ERR, 1ST, IDEF) 




Fig. VI -46. Flowchart of subroutine VELAS (Link 3) 
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f " 1 


_L£J i— 


Set IM gz address af 
last diagonal dement 


/To^\ 


Start forward sweep by com- 
puting Y(l) on B(1 ). Prepare 
to obtain rest of vector Y 


J 

I zz 

No 

^ 

L 


Loop on row* (I) oF U 
from 2 to N 


X 

f l 009 


Compute addresses of 8(1) and 
U(l, I) into L and ID, set 
IE1 = I - 1 and KB = "row 
number of first element in 
Itli column" 


Compute addresses of 
U(K,I) and Y(K) into 
IK aid JK _ 


Obtain contributions of 
U(K, I) and Y{K) to Y(l) 
by 8(|)=B(I)-U(K, Q*B<K)| 



Start backward sweep by 
first computing X(N) 
on Y(N). Prepare to 
obtain rest of vector X 



Loop on rows (L) of U from 
N - 1 to l 



Compute Y(l) by 


B(i)/Li(l' 1) <» B(l) 

i 


I Compute addresses of X(L) and I 

U(L,L) into -I arid ID; set 
ID 1 = ID - 1 , J 1 - J - 1, 
and JMX “ number of ele- 
ments in Lth row of U" 



Compute addresses of 
Y(L+K-1) and U(L, L+K-l) 
into M and I K 


Obtain contributions of 
U(L, L+K-l) and Y(L+K-1) 
to X(L) by B{L) = 6(L) - 
U<L, L+K-l )*Y (L+K-l) 



Set success indicator 
IERR = 0 



J 

A 

Return 




Error. Set IERR = IJ - 1ST to 
show odress of related 
diagonal element relative 
to A(1 , 1) 


Fig. Vt-46 (contd) 
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MAIN PROGRAM Of LINK 4 



Print out hooding for stresses 
in two- or three^diroen- 
liond continuum 



No non-one-dlmensionol 
ei ament ot node ICN. 
Print massage 


I Scratch area FF ovaries wi th 
r« ktud force area. Print 
JT^SOg. 


Loop on nodes (ICN) of 
whole structure 


| Restore INP From INPT and C oh 
subroutine CAS4 for possible 
chcrpe in INP for 1C Nth node 


Clear COMMON from 202 
to 300, end scratch area FF 


Call subroutine fINDX to 
copy X,Y,Z coordinates of 
ICNth node into XN vector 




| Col I subroutine FINDQ to copy 
deflection components of 
ICNth node into QN vector 


-L 


T 

"*J003i 


’ Read record From tape HAS 
for ic&el of current node 
(K), number of elements 
meeting at this node (LM) 
and their labels (first 
column of NEL matrix) 



Coll subroutine GENE to gen- 
erate NEL and MAC tobies and 
1C LAS vector and IMEL integer 


|Set indicators of boundary to 
non “bound ary: PNBON = 0 
and AST ~ BLANK 


] Coll subroutine BOFl to see if j 
node ICN is on boundary. 

If so, set IN60N = l f 
AST - 1H*, ARE - average | 
boundary surface area of 
rode ICN and vector BIR 




Loop on different material 
types (IM) ct node ICN, 
from 1 to IMEL 




jCompute material type number I 
IMET of IMth material group] 
and determine number of 
classes ICLA in IMth mater- 
iql group 


Loop on different classes 1C 
of IMth material group at 
node ICN 


Fig. VI-47. Flowchart of main program of Link 4 (stress link) 


78 


JP1 TECHNICAL REPORT 32-1240 


















/ 3 ^\ 


Determine class number ICLA 
of ICth class group of IMth 
material group ot node ICN 




| Call subroutine INLZ to 
initialize vectors 8A5 and 
NES r matrices DIN and W, 
and constants ICON, 
ANGLE, I ROT, BST, 

IERR, TE, DT, DG 



Call subroutine DINA to 
generate DIN matrix, BAS 
vector, and constant angle 



Call subroutine MDIN to 
rotate local o*es at node 
ICN so that KSI axis is in 
ZTA-BIR plane 


A 


Col I subroutine META to 
express material matrix in 
local coordinates. If local 
is different than overall 
and the material is not 
isotropic 




Clear area A in FF for 
strain deflection equations 



| Call subroutine ABEQ to gen* 
erate equations for stress 
boundary conditions in A, 
and prescribed stresses in 
SR 


[Determine column number IE 
of Icet element in ICth class I 
group of IMth material group I 
at node ICN 


|\oop on columns (IL) of MAC 
matrix (for IM, 1C pre- 
scribed) from 2 ta IE 



Print heoding For strain 
deflection equations 
along nodal lines 


Obtain element label 
IELT of (IL"l)st element 
of ICth class group of 
IMth material group at 
node ICN 




[By calling subroutine SETA, 
obtai n strain deflection equaH 
Mans in A for those nodal lines j 
of element IELT that pass 
through node ICN 



Fig. VI-47 (contd) 
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Fin \f\-A7 i*. 

- -g. • ■ .* 
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SUBROUTINE BEST (CIR, J6AN, MZ> 




Fig. VI-49. Flowchart of subroutine BEST (Link 4) 
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Fig. VI-50. Flowchart of subroutine BOFI (Link 4) 



Loop on elements of NSET 
vector (I) by 3's (I ts also 
count of sub vectors of 
MSET vector) 



Loop on elements oF subvec- 
tors of /ASET vector (L) from 
1 to 6 (o subvector has 6 
elements) 



Compute count of element of 
MSET Into K, and set J - 
1/2 



Compute count of element of 
NSET matrix into IJ 



Copy IJth element of NSET 
into Kth element of MSET, 
[Thus Ith subvector of MSET 
consists of first, second, 
second, third, third, first, 
neighboring vertices of ver- 
tex ICN in Ith element of 
elements of node ICN) 
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rig. Vi-50 (conid) 
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Error in mesh topology 
informaNon. Print 
message 




Fig. VI-50 (contd) 












Node is on boundary. Set 
IN SON = 1 and AST - 
1H* 



Three-dimensional mesh. By 
calling subroutine INER, 
generate in SIR a vector 
heading towards structure at 
node ICN 




py colling subroutine BEST, 
obtain direction cosines of 
normal oF a best-fit plane to 
nodes listed in NBAN vector 


| One-dimensional mesh. By 
calling subroutine INER, 
and then subroutine UNIT 
with Q < 0, obtain In BIR 
a unit vector heading away | 
from structure, and in ARE 
the length between the 
two vertices of the element | 
on boundary 


Two-dimensional mesh. By 
colling subroutine INER, 
generate in $IR a vector 
heading towards structure. 
Compute a unit vector in 
direction of line joining 
the two neighboring bound- 
ary nodes in BIR 


*501 




Compute in ARE hoif the 
distance between the two 
boundary nodes. Generate 
on BIR. the component of SIR 
that is perpendicular to 
inittol BIR' 


Fig. Vi-SO (contd) 
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'4M 1 ' 



Fig. VI-50 (contd) 
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Fig. VI-51. Flowchart of subroutine DIMI (Link 4) 
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SUBROUTINE DINA 



Fig, VI-52. Flowchart of subroutine DINA (Link 4) 
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SUBROUTINE EPAN 




Fig. VI-53. Flowchart of subroutine EPAN (Link 4) 
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Fig. VI-53 (contd) 
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SUBROUTINE FINDQ(K, Q) 


Compute pointer of 
deflections of node K 
into IOEFI 


Loop on degrees of freedom 
(I) of node K from 1 to IDEG 


Find COMMON count of I th 
component of deflection 
vector of node K 


Copy Ith component of 
deflection vector of node 
K into Q(l) 


Fig. VI-54. Flowchart of subroutine 
FENDQ (Link 4) 


subroutine FiNox(K r Q) 


Compute COMMON counts 
of X, Y, Z coordinates 
of Kth node Into IXXI, 
IYYI , \ZZ\ 


Copy X and Y coordinates of 
node K into 0(1 ) and Q(2), 
respectively 


SUBROUTINE GENE 


Loop on elements (I) meeting 
ot node ICN, from 1 to 
LM 


Compute element lobel M 
of Ith element in the 
element set listed in 


Copy 1ELT, IMET, 1C, IMS, 
IT 1C, JSDZ, JPR5, ITEM 
into Ith row of NEL 
matrix, storting from 
second column 


Copy node labels into Ith 
row storting From tenth 
column in NEL matrix 


Set IMS, JSDZ, IT 1C, end 
1C to zero 




Increose material group 
counter LMT by 1 


LMT > 4 X No t 


Set LMT - LMT - I and print 
message that there ore mare 
then four material groups ot 
node ICN 


Set IMET = NELM(I) and 
LCL ^ 0 


Compute Z coordinate of 
node K into 0(3) 


Loop on elements (J) meeting 
at node ICN from I to LM 


Fig. VI-55. Flowchart of subroutine 
FINDX (Link 4) 


/ Jh \ 
element of material, 
“\type IMET / 


Fig. VI-56. Flowchart of subroutine GENE (Link 4) 
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SUBROUTINE |NER(C|R) 



Fig. VI-57. Flowchart of subroutine INER (Link 4) 


SUBROUTINE INLZ 



Fig. VI-58. Flowchart of subroutine INLZ (Link 4) 
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SUBROUTINE INV (A, N, &, M, DETERM) 






[Record number of column* for 
which column interchange 
is to be performed by setting 
|NDEX(I, 1) - I ROW and 
iNPEX(t,2) - ICOLUM 




[ Set PIVOT(I) = A(lCOlUM, 
ICOLUM) and perform 
pivotal condensation for 
determinant by DETERM = 
DETERM* PI VQT{I) 



Divide right-hand side(j) in 
ICOlUMth row by dlogonal 
element PIVOT(l) 



| Subtract T muiti pi e oF 
ICOLUMth row from Llth 
row to eliminate ICOlUMth | 
unknown in Llth equation 



Fig. Vl-59. Flowchart of subroutine INV (Link 4) 
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Fig. VI-59 (contd) 
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SUBROUTINE MDIN 



Fig. Vl-61 . Flowchart of subroutine MDIN (Link 4) 
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SUBROUTINE META 



Fig. VI-62. Flowchart of subroutine META (Link 4) 
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Loop on rows (I) of DD 
material matrix from 
1 to K 



Loop on columns tJ) of DD 
moteriol matrix from J 

toK 



Set DDte 6) - G 



Generate symmetric lower 
part of material matrix DD 



Hg. VI-62 (contd) 



Call subroutine ROTA to 
express matriol matrix 
DD in local coordinates 



Interchange third and 
fourth rows of DD 



Interchange third and 
fourth columns of DD. 
The matrix is now 


arranged in T, 2, 12, 3, 
13, 23 order 



Print out matrial matrix 
of material type IMET 
in local coordinates in 
1, 2 r 12, 3, 13, 23 order 



Return 
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SUBROUTINE QUAD 






| Coll subroutine BEST ho 

generate In ZTA the normal J 
vector of plane best fitted 
to nodes listed in NSET 



A best-fit plane v/as not 
possible. Copy’ ZTA from 
ZD 


3 \ 

A 

Set ICAT “ 0 f and copy XII 
vector from BAS vector 

^3 



Set Q 

= i. 



Set Q 




A 



Compute □ unit vector into 
ZTA in ZTA or -ZTA 
direction, depending upon 
Q + or -> and ETA as o unjt| 
vector in (ZTA) X (XII) 
direction and XII css a unit 
vector in (ETA)x (ZTA) 
direction 


*19 


Fig, VI-63. Flowchart of subroutine QUAD (Link 4) 
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24 


Print out message that in 
place of best-fit quadratic 
surface, best-fit plane is 
used (for normal direction) 



►^ 205 ^ 


Obtain augmented matrix in 
B and C by 

premultiplying A with 
transpose of its first eight 
columns for unknown 
coefficients of best-fit 
quadratic surface passing 
through node ICN and 
expressed in local 
coordinates XII, ETA, 
and ZTA 


Coll subroutine INV to obtain 
unknown coefficients of 
quadratic in first column of 
C and determinant of B in 
DET 


XII and ETA axes are an 
principal curvature 
directions. Set 
ANGLE - 0 


©*' 



Compute angle between XU 
ond first principal 
curvature direction 


Compute principal normal 
curvatures into X(l) 
and X(2) 


|x(l)| < |x(2)| -XXO) <, -Njx(l)| - |X(2)| 

i^— -^^or > r ^ an — ^1 


Direction cosines of norma I are 
C(7, 1) C(8, 1) , -1 . Express 
normal In overall coordinates 
and store into ZTA vector. 
Set ICAT = ICATH 


,|x<l)| > i X(2) [ 


Y« / NODE - ICN 


Calling subroutine F1NDX, 
obtain coordinates of NODE 
in XF vector 



X | FC| < ER 


Modify auxiliary quantities 
CES and SEN so that for 
smaller curvature, direct- 
ion will be first direction 


Compute unit vectors in 
X and Y for sma I ter and 
larger principal curvature 
directions, respectively 



Fig. VI-63 (contd) 
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SUBROUTINE REVO 


Sel necessary constants 


Loop on nodes (I) included 
for use in best-fit curve 


Find number of el emenhs of 
class 1C and material IM, 
meeting at node ICN, into 

IE 


Compute label of Ith node 
into K 


Place first and second node 
labels af single element at 

node ICN into NSET(l) 
ond NSET(2) , or NSE' 
and NSET(4), depending 
upon whether node ICN is 
first or second node 



Co mpute coordinates af 
node K into RED vector 
by means of subroutine 

FINDX 


Loop on IPONN complement 
of integer powers (J) of 
polynomial terms 


r^\ 

Searching fourth and fifth 
word vectors af element 
descriptions,, complete 
NSET vector to o vector 
of order 5 to contain labels 
of nodes for polynomial 
curve. The order of NSET 
is in NB and NB< 5. 

N$ET is always left 
justified, ond contains 
labels of consecutive 
nodes pertaining to 
elements of class 1C and 
material IM 


Compute power 
corresponding to J into L 


Obtain Jth entry in Ith row 
of B matrix (coefficient 
matrix of unknown Factors 
of fourth -degree 
polynomial equation) 


Loop on 
J satisfied 
^ ^ 


Print out NSET vector to 
list labels of nodes to be 
used for polynomial curve 


Obtain right-hand side of 
Ith equation in first 
column of C 


Set IPONN = NB, 
IPP * IPONN - l 


Obtain crude direction of 
first local axis XII as 
vector joining node 
IPONB to node IPONE in 
vector RED 


Fig. Vl-64. Flowchart of subroutine REVO (Link 4) 
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Set unit vector of second 
local axis ETA as reverse 
of that of overall Z-oxis 



Obtain unknown coefficients 
of polynomial by solving 
the set in B and C. 

Solution is stored in C 
and determinant of B is in 



Obtain XM as 
(ETA) x (ZTA) 


^(RED) (XII) > CT 

V ? / 


5et Q = -1., since normal in 
ZTA is heading in wrong 
direction 


Obtain unit normal in 
ZTA heoding to proper 
dierction; then obtain 
XII as unit vector in 
(ETA)x(ZTA) direction 


rint out message to show that 
no polynomial fit is done, and 
that crude normal direction 
is used 


Obtain unit vector in R£D 
copy R£0 into XII, set 
ZTA os unit vector in 
(XII)x(ETA) direction 


SetZTA(l) = 0 


Loop on IPONN complement 
of integer powers (I) from 

l to IPP 


Compute power 


corresponding to I into 


K, and set Cl 


Compute contribution of 


Kth power term into first 


derivative of Y(X) 





Set ZTA{2) 


ZTA (3) = 0 


Fig. VI-64 (contd) 
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SUBROUTINE ROTA 




Fig. VI-65. Flowchart of subroutine ROTA (link 4) 
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SUBROUTINE SAME 




Fig. Vl-66. Flowchart of subroutine SAME (Link 4) 
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FUNCTION 5CAL (CIR, DIR) 



Fig. VI-67. Flowchart of function SCAL (Link 4) 



SUBROUTINE SETA 



Fig, VI-68. Flowchart of subroutine SETA (Link 4) 
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*45 



Fig. VI-68 (contd) 
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Fig. VI-6B (contd) 
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SUBROUTINE STRS 



f \ 

\y 




Fig* VI-69* Flowchart of subroutine STRS (Link 4) 
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SUBROUTINE TEMP{CC) 



Fig. VI-70. Flowchart of subroutine TEMP (Link 4) 


SUBROUTINE UNIT(CI«,Q) 



Fig. VI-72, 


Fig. VI-71. Flowchart of subroutine UNIT (Link 4) 
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SUBROUTINE VECT(A, B, C) 

A 

Obtain in vector A the 
cross product (B) X (C) 

Return 


Flowchart of subroutine VECT (Link 4) 














VII. Source Program Listings 


This section contains the source program listings of ELAS/Level 3. The listing 
of each program element is treated separately, and given a table number. The 
listings are arranged alphabetically by the subroutine names, under the main pro- 
gram of each link. The meanings of the variables used in the source program may 
be obtained from Tables III-2, III-3, and III -4 of Vol, II (basic). The organization 
of COMMON for each link is shown in Fig. III-l of Vol. II (basic). 
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Table VIM. Source program listing of main program of Link 1 (input link) 


J 6 XECuTfc FORI RAM 

Ml) 

* xeo 

* CHAIN (1»2| 

* LABEL 
C6LA51 

L MAIM PROGRAM FOR INPUT L I NR 

C READS * STORES AMI) CHECKS INPUT DATA 


FLASIOOO 
ELAS1001 
ri as ion? 


DIMENSION I Al L),AAU ),REM[13),NT[ ]0), DUMMY I 5000), 1 DUM( 5000 ) ,N( 8 > F LAS 1003 
1 ,P (24 ) ,UV( 24) ,X« 8) ,Y( R) ,ZI 8) ,Xnm ,YI»7l « XII ( 7 ) ,RUMMY{ 27,9) FL AS 1004 

7,021121 | ,S(1 1 .Cl III ^LASIOOS 

COMMON JA.AA FLAS10D6 

FOUIVALENCE I I A , AA 1 , ( AA < 9000 I . DUMMY I FL&S1007 

EQUIVALENCE (DUMMY, 1 OUM, NT .RUMMY ) , I DUMMY l Lll ,RE'0 n.ASUiriH 

EQUIVALENCE |lA|l),IN|i<IA(2ltI RN. ) , { I A t '3 ) , I T ) . ( ! A < 4 ] . I P } , { I M 5 ) , EL AS l 009 

1 IPRS >, H A (6] ♦ I TYPE ),MA(7],1MAT) T HACH), 1UFG I , II A 1 9 ) , I NX ) , ( I A { 1 O ) .ELASUHO 

? 1 H I , I f A I 1 1 I , I ?. I , 1 I A I 1 2 ) , I MMX ) , { ] A { 1 3 ) , I MMYJ , (I A t 14) , I MM2 >,<IA(15).F;LAS101L 
3 IMF) 1, I LAI 16). lARfc>,( IAU7 I .MU) ), (J A! 25), Ml ,(IA(?6> , I TY) *1 I A ( 2 7 ) .EL AS10 12 
4ISTR1,(|A(2B),IH. I 1 , I I A < 29 > . I T EM ) . < I A ( 30 ) , I T I C ) , (I A I 31 I, tMFTl, EL AS 101 3 
5114(32 I r 1 SUM ) , I IAI33I . 1NI1) , I IAI34I , IMS) , I IA( 36J ♦ IDS) ♦ MAI 371 , FLASH) 1 4 

6IORD), ( IA I 38) . lDROl) , ( !A(39>,ACH. ) . I 1 A ( SO ) , J 1 > , II A I 51 I » .>2 > . FLAS1 01 5 

71 I A I 52) ,J3) ,< IA| 53 J. J4>, I I A I 54 J , J5) . ( I A 155 ) , J6) , MAC 5ft) , J7 I , ( I A ( 67ELAS1 D1 6 
8) , J8),C IAI 58) , JTYI, (I A ( 5 9 ) , 1 8b ) , I I A [ NO I , TFM ) , I I A ( 61 ] , 1 1 0 ) , ( 1 A < 62 ) , Pi AS L01 7 
9IIA),(|A{63),]()TI, II AIM). IDY) ,( IA(65I « 1 TE ) i I IA14T ). 11 AM) CLASH)! 8 

EQUIVALENCE I I A I 66 ) , ICAft) , II A | 67 ) , I C I X ] , ( I A ( 611) , IC I Y ) . I I A [ 69 1 , EL AS 10 19 
lICJZ>,MA(YO),ICFI),IlAt7M.IxX),IIAl72l,!YY),(IA|73),l72>, F LAS 1020 

21 I A I ?4I , I ICJ , I IAI 75), I OFF). f I A < 76 I , I ST ) . f I A< 77 ) , I ] S ) M. AS 102 l 

3, ( LA (7H) , IGEMI , < I AC T9) , I FRK ) * ( AA I 80 ) . T E 1 , ( A A ( ftl ) . DT ) , I A A ( 87 ) . 00 ) , F LAS 10?? 

4| AAI83J »AL) ) , ( AA< B4) ,A|.2| , < AA| R5) ,AL3 I , < AAI 86) ,1)21 I , < AA( 1(17 I , P) , FLASL023 

5 ( A A ( 1 3 1 ] ,UV ).IAA(155I , X I , ( AA ( 1 />3 ),Y),IAAI1?1),2)»I A A (1791 » Xp ) * ELAS1074 

hi AAU86), YOJ , (AAU93I.ZOI ,1 AAI 351 ),S), I AAI40) .ZGFMl F LAS 10? 5 

7. !AA(42),INP>, IAAI43I . I PflC ) , < AA ( 44 ) , I P EN ) . ( A A C 45 ) ,C(INS) . ( A A I 46 ) . IUELA SI 02 6 
8 ) . [ AM 47 ),G1 ) , ! AA(48 I ,G2l ,< AAI49 ) ,G3 ) FL AS 1027 

EQUIVALENCE II A < 349 ) ,N1 I C ) , ( IA( 348 ) . f SOT) , ( I A ( 3471 , TSOY) ,< IAI346I FLA S) 1)2 R 
I , ISO/ I ,( IAI 34 5] . J9) , [| A (344 ) . J10), I I A ( 343 ) , JPRS > , I I A ( 34? I , JSDY ) r LAS 1079 

2 t I I A ( 34 L ) , JSOZ ) , I I A 040) .JAR El ,( I A ( 339 1 , JMMX ) , ( I A I 338) , JMMY) FLA S l 0 30 

3, I I A ( 337 ) , JMMZ ) r ( I A< 336 I , JMF f ) . I IAI 33S) + 11 AS I , I I A( 3341 , IOZ ) FL AS 1031 

4, I I A 033) , !PW I , ( AA( 3321 ,DC»Y) ♦ I A A [ 3 3 1 ) , DGZ ) , I A A I 331) ) , PRES ) EL* 510 32 

5, ( 1 A ( 329 I, IPIR) , 1 1 A 028 I , JcnR }. I I A I 327 ) , 1 PUN ) , (I A ( 3? 6 1 , I ME S ) EL4S 103 3 

DIMENSION I BERK I 50 ) FLASH) 34 

F. UU J VALENCE I I A ( 200 I , ! BEKR ) ri.ASM)3!} 

DIMENSION IS1RO40) FLAS1036 

EQUIVALENCE (UUMMY(ftlOO) , ISIR) E LAS 103 7 

EQUIVALENCE I t A 05 I . I SHOP ) FLAM038 

2 VUO CALL TICK (ITIM) ELAS1039 

CTES=3HEND FLASH'iAO 

OD 6999 1 = 1.9000 F L AS 1 04 1 

5999 1 A ( 1 ] ~0 FI.AS1042 

READ INPUT TAPE 5 , 297 , f RFM I I ) , I = 1 , l 4 1 rLASH)43 

297 FORMAT 1 14A 6 ) FL AS 1044 

G COMPUTE: DYNAMIC MEMORY ALLOCATION CONSTANTS FLAS1045 

I RKAD INPUT TAPE 5 + 10 1 , I N , 1 T , I DEG , I TYPE , IGF.M, I S TR , I M , I R , i&N , 1 P . 1 PR5EL AS1046 

1. I MAT, NT I C, I SOT, I SOY, 1SDZ, CARE, I MMX. IMMY.IMMZ, I KF I , I NY, 1 N P , ISHIIF F LAS 1047 
2.ICDR.I8UN, JMES, IPIR, 1 TAP, ITAS.r.L ,G2 ,G3, ACEL EI.AS104R 

101 FORMAT 1214.611014,1012,91 1.3F6, 4, FIO. 6) FLAS1049 

IF IITAS) 2971,2971,2972 FLA61050 

797? RCWINO ITAS ELAS1051 


IF IITAP) 7055,7055,7056 

7055 I T AP - 2 

7056 I ERR =0 

If 1181 300,3008,3009 
30UR 18=10 

3009 IP I INI 300, 300,3001 

3001 IF f T T J 30D.300.3U02 

3002 IF I ( IDEG-1 Jwf 10EG-6 I I 3003,3003,300 

3003 IF (ITYpe-2) 3004,3004,300 

3004 IF IICEM-11 3005,3005,300 

3005 IF IISIR-II 3006,3006.300 

3006 IF IIH-2) 300.3007,3007 
30U 7 IF I Ifl-lHI 300,3011,3011 
3011 IF IIMAT) 300 , 300 , 302 I 

3U21 IF I lNX*UNX-5) ) 3022.300,300 
3022 IF IINP-2) 3451,3451,300 
3451 I ND= ) DEG* IN 
2GEM= IGEM 
I ND1 = I IMD+1 

tf HH-41 1400,1199,1300 
I1V9 IF (IDEG-2) 300,1400,1200 
1200 IUS=3*IDf?G 
Gl) TO 1500 
1300 I05=4*lDE(i 
GO TO 1500 
1400 I l)S= I H* I OEG 
1500 IIS=350 

DO 1025 1=1,10 
1025 NT ( 1 I =0 

ua 103 1 = 1 I 18 
103 N1UP = TT 

Jl=llS+IOS*IOS 

J2=Jl+NTll) 

U3=J?+NT|2) 

J4= J3+NT 13) 

J5 = J 4+NT 1 4 J 
.16 = J5+NT 15) 

.17 = J6+NTI A ) 

J8= J7+NT I 7 ) 

J9 = JH+NT I 8 ) 

J 1 D=J9+NT 19) 

I RB=J10+NT<10 I 
IBI]=IB8+IN0 
1 1 D= I 80+ I NO 

IF 11 TYPE-1 ) 4491,4492,4493 
44V! I I A= 1 10+2 Y I MAT 
] PR= I I A+ 1 MA T 
GO TO 4494 

4492 l 1 A= 1 I U + 9* I MAT 
|pft-|IA*2*lMAT 
GO fO 4494 

4493 IIA=Iir>*21«lHAT 
IPR-I I A + 3** I MA T 

4494 I HE* I 1 PRS 

ll)|»nE+NTlC 

[(>Y=|0T+TSL)1 

idz^iqy+isdy 


FL AS 1 D53 
H.AS1054 
FLAS1 1) 55 
FLAS 1056 
ELASlf)57 
ELASlOr-R 
ELAS1U59 
FI. AS 1 060 
FLASUI61 
ELAS I 067 
F LAS 1 063 
EL AS 1 064 
FL AS 1 065 
FL AS l 066 
F I, AS 1 (167 
F I. AS) 068 
FLAS1069 
El. AS 1070 
FLA S 1071 
F LAS 1072 
EL AS 1073 
F L AS 1 07 4 
FI.AS HI 75 
F L AS 1 07 6 
FL A S 1 077 
F LAS 1 07 6 
M. A S HI 79 
H AS l OHO 
FI. A 5 Hi ftl 
FLAS10A2 
FLASIOR# 
FI.AS1U84 
n. AS I OR6 
FLAS1 0R6 
FL A S I0ft7 
ELASlOftft 
Ft A S H'ft9 
F LAS 1090 
FI.AS1 091 
F L AS 1 09? 
FLAS1093 
FL A S 1094 

flaSH‘95 

H.AS 109#, 
FLASH197 
r I.ASI09H 
F L A S 1 no 9 
FLASMO0 
FLASUOl 
FLA 5 1 ) 07 
FLAS1103 
FLA $ 1 ] 04 
FLASH 115 
H.AS I ) nfi 

i las uny 

^LASllOP 
t-LASI 109 


ICAR= !l)Z+-ISfl/ FLASlllO 

ICIX= ICAW+I ARE FLASllll 

IC I Y= IC1 X+ 1MMX FLAS1H ? 

IC I Z = 1CI Y+IMMY E LAS 1113 

ICFI = 1C12+ IMMZ 

I XX= I CF I + IMF I J 5 J 

I YY- I XX+ I N FL AS 1 1 I 6 

If./.* I YY+ IN FLAS1117 

I J C= 1 Z Z+- [N* | GFM FL AS 1 I 18 

1 li=I D6 F* INDI H. A S 1 1 ? 1) 

IST = IU FLASH?) 

CALL TABL * l *t U? * 

C READ AND PRINI OUT ThE PHYSICAL AND Cl Ft IMF TR I C AL PROPER! I FS tlF THE ELASll?3 

C ELEMENTS fLASIl?4 

IF (INP-1I ?5?7 ,2576.257 6 RI.AS1125 

7 526 WRITE OUTPUT TAPE 6,356 

3 56 FORMAT Cl Hi, 3X » 1 9HM4TER I AL PROPPHlIfS) F ; L6 1 n lI 

2 >27 IF IMYPE-1) 4487.4380,4389 5 L 

4487 IF IINP-U 2501*. 2502, 2502 ll ^ 

2502 HR I I b OUTPUl 'TAPE 6,4486 FLA S L 130 

4486 FORMAT I (2 M X, 2HTP, 5X , 1H£ , 14X , 1HG, 1 4X , 6HALPHA , I 5X ) / / ) FL AS 1 131 

2501 READ INPUT TAPE 5.100,(1 DUMI I I .DUMMY [ I +1 00) .DUMMY I 1+200 ) , DUMMY ( I fJFLASl 132 
100 I, r = l, I MAT I 
1 LIU FORMAT (3(I2,3E8.5I) 

00 4285 HMMAT 

IF ( IDIJMI I )-I ) 300,2 500,300 FLASH 36 

2500 I mi= I 11)42*11-1 1 + 1 F LAS LI 37 

I ] A 1 = I 1 A ♦ l FLAS1I38 

A6( I TOI )=DIJMMY( 1 + 100 ) FLAS1139 

A A ( I1DI+1 )= DUMMY t I *■700) EL A SI 140 

A A{ I IAI | = DUMMY ( I +300 ) ELAS 1141 

4285 CONTINUE FLASl)42 

IF (INP-n 67L9. 5550,5550 FI.AS114J 

5550 UR I TF OUTPUT TAPE 6 .448 3 , M , D< IMMY ( I + ICO 1 .DUMMY I 1 +200 1 , DUMMY I T ♦300 1 FL AS 1 1 44 

U H 1,1 MAT) ELAS1145 

4483 FORMAT ( 2 ( I 5 , 3F 1 5 . 5 ♦ l OX ) I F1.AS114A 

GO TO 6219 F LAS 1 1 4 7 

438H IF (INP-n 2504.2505,2505 EL AS 11 4 R 

2505 WRITE OUTPUT TAPE 6,43«6 F L AS 1 1 4V 

4366 FORMA 1 I /7X.4HE 0R,6X,4HG (1R/3H TP , 4X , 3H011 , 7X , 3HD 1 2 ,7X , 3HD1 4 . FL AS 1150 

17X.3HD2 2, 7X,3HD24, 7X , 3HD44. 7 X , 3H055 , 7X , 3HD57. , 7 X , 3HD66, l ? X , hHALPHA 1FL4S 11 5 L 
2.4X,6 HhlPHA2/7I FLASH 5? 

2504 READ INPUT TAPE 6, ZOO, C 10UM ( I I , DUMMY ( l + 100 > , nttMMY l I .700 > , DUMMY ( |4 3E L AS 1 1 43 
100) , DUMMY ( I +400) .DUMMY! T+IOOl .DUMMY I I+60CU . DUMMY ( 1+700) .DUMMY I 1 +80FLAS 1 1 54 
20) , DUMMY! I +900 ) , I OUM f I ) , DUMMY ( 1+ 1000! .DUMMY I 1 + 1100).] = !, I MAT) FL AS 1 155 

200 FUKMAT I I 2 , 9E8 .5/ l 2 . 268 . 5 I FI.ASI146 

DO 4385 1=1,1 MA 1 FLAS11S7 

IF IID1IMUI-1J 300,5560,300 F LA S H 5ft 

5560 I ! D I — I T D+9* I I -1 ) FLAS1159 

1 lAl = UA + 2*( I-D+l ELAM 160 

Ut) 5350 J =1 , 9 FL AS 11 61 

.1101 = 11 Dl+J F LAS 1 1 62 

JDM=H100*J FL AS T 161 

5350 AA I J10I) =OIIMMY( JDM I FLASH 64 

AA< I IAI ) = DUMMY I l + I ODU ) FL AS 1 165 

AA I 1 IA | + 1 )=DlJMMY(l + | IDO) F IASI 166 

4385 CONTtNUE F1.AS1167 

IF (INP-1 ) 6219.4400.4400 FLASH 6fl 

4400 WRITE OUTPUT TAPE 6 ,43»3 , C 1 » DUMMY I ] + 100 ) , DUMMY ( I +200 ) . DUMMY [ 1 + 300 ) EL AS H 69 
J .DUMMY I I +4001 , DUMMY ( I +500 ) , DUMMY f 1+600 ) .MUMMY I ) +700 ), DUMMY I I +800 ) , E L AS II 70 
2 DUMMY I 1+900 I , DUMMY I I ♦ 1000 I .OlJKMYl ] +1 1 00 ) ,1 = 1 , 1 MAT J ELAS) I 71 

4363 FORMAT (I 3 , 2X ,9El 0. 3 , 5X , ?F 1 0. 3 I F : LAS 1172 

CilJ TO 62) 9 FLASH 73 

4369 IF (INP-1) 2506.2507,2507 FLAS1174 

7607 WRITE OUTPUT TAPE 6,4351 FLAS117S 

4351 FORMAT t /9X , 4HE 0« , 11X ,4HG Oft / 3X , ?K T P , 4X , 3HDX X , 1 7 X, 3HflY Y , I ?X , 3MFL A $ 11 76 

1!)ZZ,12X,3HDXY,1?X,3HI)YZ.12X,3H[)ZK.17K,6HALPHAS) FLA S 1177 

25U6 READ INPUT TAPE 5,4352, t I DlfM( I } , DUMMY ( I + I 00 ) , DUMMY ( I +200 I « DUMMY I I +FL AS 1 17 8 
1300 I .OUMMYI I +400 I , DUMMY ( 1 + 500) .DUMMY ( I +600 ), DUMMY ( 1 + 700 ) .DUMMY ( J+flFl ASl I 79 
200) .DUMMY (1+900 ), I OUM I I ), DUMMY I 1*1000) . DUMMY ( I + 1 1 00 1 , DUMMY ( J +1 200 I F l 4 5 1 1 RO 
3, DUMMY [ 1+1300) .DUMMY I I + 1400) .DUMMY 11*1 6001 , DUMMY I 1+1600) .DUMMY (1+lELASllRl 
4700) , DUMMY I 1 + 1800) , I PMM (I ), DUMMY! I +1 900 ) , DUMMY I I +700(1 ), DUMMY ( 1+21 OEL AS 1182 
50 ) .DUMMY ( 1+7700 I .DUMMY < 1+2300) .DUMMY ( 1 + 2400 I ♦ I =1 , IMAT > FLAS! 1 «3 

4352 FORMAT I T 2, 9E R. 5/ I 7 , 9E8. 5 / I 2, 6E 8. 5 > FI. AS I I 84 

DO 1041 1 = 1, IMAT ELAS 11R5 

IF IlDUMMI-II 300,1043.300 f L A 5 1 1 ft 6 

1 Ij 4 3 I I B I ■ I 10 + 21*1 I — l ! PLASUP7 

I lAI = HA+3*< 1-1 >+l FLASH HR 

00 5400 J=L,2l FLASI 1 H9 

jiDi = iii)i+J flashy 

JDM=I + 100*J FL A S 1 191 

54UO A A ( J I LH ) = DUMMY I JDM ) FLAS1I92 

A A I I I A I ) = DUMMY ( 1+2 200) FL A S 1 1 93 

AA( I IAI +1 I = DUMMY t 1+2300 I FLAS1 194 

AA I I I A 1 + 3) "DUMMY! 1 +24001 FLASH 96 

1041 CONTINUE F L AS l 1 96 

IF (IMF-l) 6219,5590,5590 FLAS1197 

5690 DO 5600 I =1,1 MAT FLASH 98 

WRITE OUTPUT T APF 6 , l 700 ,< I , DUMMY IT + 1 00 I , DUMMY I I ♦ 700 ), DUMMY I I +300 ) ELAS 1 1 99 
l .DUMMY! 1+4001 , DUMMY ( I +600 ). DUMMY ( 1+600} , DUMMY I 1+2200)) FLAS1200 

WRITE OUTPUT TAPE 6 , L flUO, (DUMMY Cl + 200 ) . DUMMY { 1 +700 } , DUMMY I I +ROt) ] , DFI.AS 1 ?01 
IUMMY ( I+90D ) . DUMMY ( ! + 1000 ) .DUMMY I t + UOO ), DUMMY | I +2300) I |U,ASl?02 

WRITE OUTPUT TAPF 6 , 1 BOO, ( DUMMY I I ♦ 300 ) , PUMMY ( I + 800 ) , DUMMY ( 1 + l 2ilO ) , FL A5 1 703 
l DUMMY ( 1+1300) ,OUMMY( 1+1400) , DUMMY ( 1+ I 5001 , DUMMY C I +74001 ) F L AS 1204 

WRITE OUTPUT TAPF 6 , 1900, (DUMMY ( I +4|)D ) , DUMMY ( I +90C) I , DUMMY ( I + 1 3t)0 ) , FL A S 1 705 
) DUMMY ( I +1600) .DUMMY ( 1 + 1700 I .DUMMY! I + 1 ROO ) ) FI.AS1706 

WRITE IIUTPUT TAPF 6 , 1 900 .( DUMMY (1 + 600 ), DUMMY (t ♦ 1C0Q ), DUMMY <] +1 600 > FL AS 1 ?U f 
1 .DUMMY! 1+1700 ). DUMMY I 1 + 1900 I . DUMMY [ 1+7000) ) PLASl 70fl 

56011 WRITE OUTPUT TAPF 6 , 1 900 . U)1IMM Y ( I ♦ 600 ) , DUMMY ( I ♦ l 1 CO ) , DUMMY M + 1 <5<}0 ) Ft. AS1 ?09 


1 , tJI JMMY ( I + l ft 00 ) , OUNM Y ( I +2000), DUMMY I 1 + 71 00)) 

I /OD FORMAT C it I 5.6F1S. 5, 5X.F15.5) 

1800 FORMAT ( 5X , 6F 1 5 . 6 , 5X , E 1 5 . 5 ) 

1900 FORMAT I6E15.5) 

6219 IF (|PRS) 300,6718.7000 

70U0 READ INPUT TAPE 5 , ?0<>t , { | OUM I I I , DUMMY I I +1 DO ) , 1 = 1 , 1 PRS ) 
Dll 7700 1 = 1 .1 FKS 
• IF M()UM(II-II 300,7100,300 
2100 IPRHIPK+I 

AA ( I PR I ) "DUMMY ( 1 ♦ l 00 I 
2200 CONTINUE 

1 F I INP-1 I 671 ft. 2 300, 7300 

?3U0 WR1TF miTPUT IAPF 6,1301, (I ,f)UMMY( 1+100) , 1 = 1 , IPRS) 

1301 FORMAT (////4X,t 4HPKF SSlJRF 1 Yi'FS/Z I 5( I 6 , F | 5 , 6, 4){ ) | | 
6218 IF INTIC) 300,6717.7400 


FLAS17I0 
FI. A S l? 1 1 
FLAS1712 
F I. A X 1 7 \ 3 
F I. AS 1714 
FL A S ) 7 1 5 
FI. A S 1 ? I 6 
FLAS1?) 7 
M.ASI7I H 
FLAM ?19 
FI. AS 1770 
FLASH?) 
ELAS 177? 
FI.AS1773 
Ft AS 1774 
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Table VIM (eontd) 


2400 RE AO INPUT TAPE 5 , 2D0 1 , I l OUM( I > , DUMMY I I +1 00 > , I = 1 ,NT I C ) 

on 2600 l=l,NTIC 

IF (IDUM(I)-I) 300, 5500, 300 
56U0 ITfcl =1 TE+I 

A A { ITEI ) “DUMMY ( 1 + 1001 
2600 CONTINUE 

IF I IMP-1 ) 6217,2900,2900 

2900 HR | 7 E OUTPUT TAPE 6,1 302, ( I , DUMMY I 1+ 1001 » 1 = 1 ,NT IC1 

1302 FORMAT (////4X, 15HTH1CKMESS TYPES// I 5 I I 5, FI 6. 5, AX M) 

6217 If USOTI 300,6216,5700 

5/00 READ INPUT TAPE 5,2001 , ( IOUMI i 1 , DUMMY I I + 1G0 1 , 1 = 1 1 ISOT 1 
DU 5720 1-1 i ISOT 
IF (IDUMin-M 300,5710,300 
5710 lOTlMDT+l 

AAIIOTI > -OUMMY ( J +1 00 ) 

5720 CONI INUS 

IF IINP-1) 6216,5730,5/30 

5/30 WRITE OUTPUT TAPE 6 , 1303 , ( 1 . DUMMY I I + 100 ) , I =1 , I SOT > 

1303 FORMAT ( ////4X,26HT£MPCRATURF INCREASE TYPE S//< 5 (1 5 , El 5 . 5, 4X I }} 
6216 IF USOV I 300,6215*3500 

3500 READ INPUT TAPE 5,2001 , < IOUMI I J , DUMMY 11+100), 1-1,1 SDY 1 
00 3700 J=1 . I SDY 
IF I lUUMdhll 30D,36U0,300 
36U0 IOYi-lUY+1 

A A { I [>Y I ) = DUMMY! 1 + 100 ) 

3/00 CONTINUE 

IF IINP-1 1 6215,3600,3800 

3bUQ WRITE OUTPUT TAPE 6,1304,1 | , DUMMY I I +100 I ,1=1,1 SOY I 
1 31)4 FORMAT (////4X,39HTEMPERATURE GRADIENT TYPES ALONG Y AXIS// 

1151 I 5, EL*. 5, 4X1) 1 
6215 IF usnn 300,6214,4000 

4000 RE AO INPUT TAPE 5 , 2001 , ( I DIIM( I ) , DUMMY I 7 +100 ) ,1 = 1 , ISO/. ( 

on 42or> r=i,isoz 

IF (IDUM(l)-n 300,4100,300 
4 1 uG 1021=102+1 

AA(IDZI)“DUMMYII+100J 
42 UO r.UNTINMF 

IF UNP-H 62L4, 4300, 4300 

4 3tlQ WHITE OUTPUT TAPE 6, 1305,(1, DUMMY <1 + 1001, l = l,lSnZ> 

1305 FORMAT ( // / /4X , 39HTEMPSRAT URE GRADIENT TYPES ALONG l AXIS// 

1(51 15, ELS. 5, 4X m 
6214 IF HARE I 300,6213,4500 

4500 READ INPUT TAPE 5, 2001 , ( 1 IIUMI I 1 , DUMMY ll + 1 DO 1 , 1 « 1 , J ARE > 

DO 4700 1-1 , 1ARF 
IF IIOlJM(l)-l} 300,4600,300 
4600 ICAR 1 -ICAR+] 

AAMCARI leDLPMMYl 1+1001 
4700 CONTINUE 

IF I iMP-1 I 6213, 4600 « 4K00 

4bU0 WRITE UUTPUT TAPE 6 , 1 306 , U , DUMMY ( l + 100 I , I =1 , I ARE I 
13U6 FORMA 1 1 / // /4X , 1 OHARE A TYPE5//I 51 15, E15.5,4X) ) > 

6213 IF UMMX1 300,6212,5000 

5000 READ INPUT TAPE 5,2001 ,11 DUM( I J , DUMMY (1 + 1001,1=1,1 MMX ) 

00 5200 I=1,IMMK 
IF IIDUM(I)-I) 300,4100,300 
51U0 ICIXI=lClX«i 

AM IC1XI I -DUMMY I t+iaoi 
5200 CONTINUE 


FL AS 1 225 
ELAS1226 
E LAS 1 22 7 
FL AS I 2 28 
F LAS 1 229 
ELAS1230 
E LAS 1 23 1 
ELAS1232 
f LAS1233 
ELAS1234 
E LAS 1 23 5 
FL ASt 236 
F LAS 1 237 
ELAS123B 
F LAS 1 239 
EL A SI 2 40 
F LAS 1241 
ELAS12A2 
EL AS 1 243 
FI A S 1 244 
FIAS1245 
EL A SI 2 46 
ELAS1247 
ELAS124S 
M. AS l 249 
F LAS 1 2 50 
FL AS L 25 L 
ELA51252 
EL AS 1 253 
EL AS 12 54 
F L AS 1 255 
ELAS1256 
ELAS1257 
E LAS 1 258 
EL AS l 259 
EL AS 1260 
EL AS L 261 
EL AS 1 262 
EL AS 1 263 
ELAS1264 
ELAS1 265 
ELAS1266 
FLAS1 267 
CLA51268 
EL A$ 1 269 
FLAS12T0 
EL AS l 27 l 
EL AS 1 2 72 
ELAS1273 
ELAS1274 
FL A$ 1275 
EL AS 1 276 
FLASl 277 
FLAS12T8 
ELAS1279 
ELAS1280 
ELASI 2R1 
EL AS 1 282 


IF IINP-1) 6212.5300,5300 

5300 WRITE OUTPUT T AP F 6 , 1 307 , ( 1 .DUMMY (1 + 100 I , 1 =1 . I MMX I 

1307 FORMAT ( // //4X , 22HTORS I ON CONSTANT t YPE S// ( 5 II 5 , €1 5 . 5 , 4X ) 1) 

6212 IF IINMY) 300,6209,6000 

6000 READ INPUT TAPE 5,2001, ( I DllM ( II > DUMMY I I < I 00 I ,1 = 1. IMMY1 
DO 6200 1=1,1 MMY 
IF I ItlUMI I >— M 300,6100,300 
61 UU ICIY1-ICIY+1 

AA I ICIYJ ) -DUMMY I I + 100 ) 

6200 CONTINUE 

IF UNP-ll 6209,6300,6300 

6300 WRITE OUTPUT TAPE 6,1308,11, DUMMY 11 + 1001,1 = 1,1 MMY 1 

1308 FORMAT I ////4X , 50HM0MFNT OF INERTIA TYPES ABOUl FIRST PRINCIPAL 
1 IS//I6( I5,E15.5,4XJ ) ) 

6209 IF I 1 MM Z > 300.6208,6500 

6600 REAR INPUT TAPE 5,2001, I 1 DUMf 1 1 , DUMMY I 1 + 100), 1*1,1 MNZ J 
DO 6700 I = L , I MMZ 
IF UDUMUl-Il 3U0, 6600, 300 
6600 ICIZI-lCIZ+J 

AA I IC1ZI > = DIJMMY( 1+100) 

6700 CONTINUE 

IF I I NP— L | 6208,6800,6800 

6BU0 WRITE OUTPUT TAPE 6,1309,1 1 , 111 J MMY ( 1 + 100), 1-1, TMMZ) 

1309 FORMAT ( / // /4X . 51HNQMEN 1 Df ! NCRT I A TYPES ABOUT SECOND PRINCIPAL 
1XIS//(5(IS, FIS. 5,4X1) I 

6208 IF tlMFl) 300.830,7000 

70UO READ INPUT TAPE 5 , 2001 , U DUN II), DUMMY M + 100)»J = 1,JMF1) 

DO 7200 I-W1MFI 
IF I IDUMI 1 )-l ) 300,71 no, 300 
7100 I C F I I = ICF I + 1 

AAI ICF11 ) -DUMMY U +100 I 
72U0 CONTINUE 

IF IINP-1) 830,7300,7300 

/3Un WRITE OUTPUT TAPE 6, 1 31 D , { [ , DUMMY ( I +1 OO 1 , 1= 1 , 1 MF II 

1310 FORMAT I////4X.35HANGLF TYPES DEFINING PRINCIPAL AXFS / / I 5 I I 5 , E l 5 
1,4X11) 

200 1 FORMAT I H ( f 2 , F8 . 5 > ) 

C READ IN AND PRINT OUT NODAL COORDINATES 

83U2 FORMAT I IH1 ,50X, L7HN00AL COORD I NA 1 FS //// 2 I 5H NODE , 5X , 1HX , 1 4X » 1 HY 
114X,lHZ,19X)//2n5,3El5.5,lOXU 
8 30 IF IICOR) 8311 ,831,8311 
0311 CALL CORG 
GO TO 5010 
«31 CALL COOR 

IF I I ERR 1 300,5810,300 
5a 1 0 If tlNP-U 5850,2519,2519 
2619 1=0 

NTP« IN 

9010 IF IL + lOQO-N IP I 9015,9020,9020 


ELAS1 283 
ELAS1234 
ELAS1285 
ELAS12R6 
ELAS1287 
ELASL2R0 
FI.A51209 
EL AS 1 290 
ELAS1291 
ELAS1292 
ELASl 293 
EL AS 1 294 
AXEL AS 1295 
£ LAS 1296 
Ft AS l 297 
ELAS1298 
FL AS 1 299 
ELAS1300 
FLAS1301 
E LAS I 302 
ELAS1303 
ELAS 1 304 
H. AS 1 305 
AF LAS 1 306 
ELAS l 307 
F LAS 1 308 
EL AS 1 309 
E LAS 1 310 
EL AS 1 31 1 
f LAS 1 312 
ELASl 31 3 
H.A51314 
FI.AS1315 
ELAS 1 3 1 6 
-5FLAS1317 
ELAS 1 3 l B 
FI AS1319 
F LAS 1 320 
, FI.AS1321 
F LAS 132? 
ELAS 1 323 
EL AS 1 324 
FI AS l 325 
FI. AS l 32 6 
FLA51 377 
ELAS1326 
FL AS 1329 
EL AS 1 330 
FI AS1331 


GO TO 9025 
9020 I N=N IP— L 
9025 DO 5800 1=1, IN 
IXX1MXX+I 
I YY 1 = I Y Y+ I 
IZZIMZZ+I 

Dummy I h=am jxki ) 


FLAS 1332 
ELAS1333 
FLAS 1334 
FI AS1335 
T L AS 1 336 
ELAS 1 337 
FLAS1338 
FLAS 1 3 39 


DUMMY (1+1 000 ) = AA ( 1 Y YJ ) ELAS1B40 

DUMMY ( I +2000 ) = AA [ I 2 Z I )*ZGEM FLAS) 341 

5800 CONTINUE ELAS1342 

WRITE OUTPUT TAPE 6, 8 302 „ 1 1 , OUMHYUI , DUMMY II ♦ IllOO 1 . DUMMY II +2000 ) , 1 FL*S 1 343 


1=1 , INI 
1=1+1000 

IF IL-NTP) 9010,9030,9030 
9U30 IN=NT P 

C PREPARE VECTORS NECESSARY FOR IMPOSING BOUNDARY CONDITIONS 

5850 nil 6 1 = 1 , I NO 

IBOIUBO+I 
1881=188+1 
r ic i = i ic+i 
i a ( mm )=-i 
I A 1 1 BB I ) — I NOl 
6 AA(TIC1)-1, 

IF IIBN) 300,5860,317 
C READ IN BOUNDARY CONDITIONS 

31? L=0 

I 0RR= 1 
NTP-= I6N 

3000 IF a + JOOO-NTP| 3100.3200,3200 
3100 l BN= 1000 

GO ID 3170 
3200 IHN-NIP-L 

3170 IF ( I BUN ) 3172,8171,3172 
31/2 CALL BUNG 
GO TO 3173 


FLAS 1344 
EL AS 1 345 
EL AS 1 346 
ELAS l 34? 
FLAS1348 
ELAS I 349 
ELAS13S0 
ELAS L 351 
EL AS 1352 
ELAS 1 353 
EL AS 1 354 
FLAS l 355 
FLAS 1356 
EL AS l 357 
FLAS 1 350 
EL AS 1 359 
EL AS 1 360 
ELAS1361 
EL AS 1 362 
FLASI 363 
FLAS l 364 
ELAS1365 
EL AS 1 366 
EL AS 1 367 


3171 READ INPUT TAPE 5, 108, I IDUMI I ), IOUMM + 1000J , IDUMI 1 + 2000) , IDUMI I+30ELAS1368 


100), DUMMY! I +40001 , 1 =1 , IRN I 
100 FORMAT ( 51 14, I 1 , 14, II ,F6.5 )) 
3173 no 441 1=1 , I8N 
KCO= I OHM (1 + 1 000 ) 

KCR=I0UM< 1+3000) 

IF IKCR-IDEGI 318,319,300 
31 ti IF <KC«) 300,300,319 

319 IF IKCQ-1DEGI 320,321,300 

320 JF (KCO) 300,300,321 

321 N0= I DUMI 1 I 

NR= IDUMI I +20001 
IF (NO-IN) 322,323,300 

322 IF (NO) 300,300,323 

323 IF (NR-IN) 324,325,300 

324 IF (NR) 300,300,375 

325 1 l=IUEG*tNQ-l l+KCO 
J J= I DEG* I NR-1 ) + KC R 
I BU l = 1 BU+ 1 1 
I1CIMIC+II 

N= I A I ( BO [ > 

GO TO L 72 

1 76 IF (NU I 357,1757,1758 
1 /P 7 I A I IBDI l=JJ 
GU TD 44 

l 7 58 IF (N-1000011759, 1760, 1760 

1760 I B0J= I BO+U J 

IF I 1AI i BU J I + 1 ) 157,1763,357 
1763 I AC 1BUJ l=- 10000- 1 i 
11 CJ= I IC+JJ 

AAI 1 1 C J I -DUMMY 1 I +4000) 

GO TO 441 
1769 1BUJ=IBH+JJ 

IF (IAUB0JI+1I 357,1/61 ,367 

1761 1 RDN= I BO+N 

IF ( 1 A ( 1 BON 1+11 357,1762,35/ 

1762 I1CN-UC+N 

I A ( 1 RDM I =— 1 OOOO- I 1 
AAI 1 ICN|=AA| (TCI) 

AAI 1 1 C I 1=0, 

IM IBDJ) = IA( IBON) 

ncj = i ic+jj 

A A ( 1ICJ)=0UMMY( 1+40001 
1 A I I nil I ) =10000 
GO TO 441 

172 IF (Il-JJ) 176,175,176 
175 IF INI 1751,357,1753 
1761 IF IN+1P 357,1750,175 
1 7 60 lAUBni)=0 
GO TO 44 

1752 1 AM BO I t = 10000+ 1 I 
GO TO 44 

1/63 IF IN-I 01)00 1 1 754, 1752,357 
1/64 1 HDN= I BO+N 

IF I I A I 1 BON I +t ) 357,1756,357 
1756 IA| IBOI 1=10000+1 I 
I ICN-1 IC+N 
AA I I ICNI-AA M 1C I ) 

lA(mnN) =- 10000-11 

GO 70 44 

357 IBERRI I BRfO - I 
1 BRR * I HRR+ ] 

GO Til 441 

44 AAI MCI ) -DUMMY (I +4000) 

441 CONTINUE 
3165 L-L+ 1000 

IF IL-NTP) 3000,316,316 
316 IRN-NTP 

I HI<K= ) BHft-l 

IF I I BRR I 3161,5860,3161 
3161 WRITE OUTPUT TAPE 6,3162 


FLAS 1 369 
FLAS1 3TD 
EL A S 1 37 1 
ELASL372 
FLAS 1 373 
FLASI 3T4 
FLAS 1 37 5 
EL AS! 376 
ELAS1 377 
FLASI 37B 
FLA51379 
EL A S 1 380 
E LAS 1 381 
FLASI 382 
FLAS J 383 
FLASI 384 
FLASI 3R5 
ELAS1386 
EL AS L 387 
FLAS1338 
FLASI 389 
ELAS1390 
FL AS l 391 
ELAS1392 
FLASI 393 
FLASI 394 
FLAS1395 
FLASI 396 
EL AS l 397 
EL AS 1 398 
FLA51399 
FLASI 4fin 
EL AS 1 401 
ELAS14D2 
ELAS 1403 
EL AS l 404 
FLASlAnS 
FLAS L406 
EL AS 1 407 
6LAS140B 
EL AS 1 409 
ELASI410 
ELAS14) ) 
FL AS ) 41 2 
FLAS 14)3 
EL AS 1 41 4 
EL AS 141 5 
EL AS 1416 
ELAS 141 7 
FLAS 141 B 
El AS L 4) 9 
EL AS 1420 
ELAS 1421 
ELA SI 4 J2 
EL AS 1 423 
ELAS 1 424 
ELAS1425 
ELAS1426 
ELAS1427 
ELAS1426 
FL AS 1429 
E LAS 1 430 
FLASI 431 
ELAS 1432 
FLAS l 433 
ELAS1434 
FL AS 1 4 35 
FLAS1436 
ELAS 14 37 
FLAS 1438 


3162 FORMA 1 I 1H1 ,111HTHE EClLLflW I NG DISPLACEMENT BOUNDARY CDNOITIDNIS) C AEL AS 1439 
1 USE I S I MORE THAN ONE MULTIPLE CONNECTION FDR THE UNKNOWN ( S I . / KAS1440 

2 l BH THEY ARE IGNORED. ) ELAS1441 

DO 3L63 1=1, I BRR FLAS1442 

J=1BERR(I) FL A S 1443 

WRITE OUTPUT TAPE 6 , 31 64, I DUM ( J ) , I OUM ( J+ [ 000 ) , I OUM I J+2000 ) , I DUM ( .Hfc L AS 1 444 
1 3OG0 ) » DUMMY ( J+4 000 ) ELAS1445 


3163 CONTINUE 

C READ IN AND PRINT OUT MESU TflPOLOGY AND ELEMENT TYPES 

5B60 IF IINP-U 7717,7523.2523 
2523 WRITE OUTPUT TAPE 6,795 
C PH) NT OUT THE HEADLINE 


t L A 5 1446 
ELAS 1447 
EL AS l 449 
FLAS 1 449 
hi AM 45D 
ELAS ) 4 51 


796 FUHMAT I IH1 ,23X, 1 3HMESH TOPOLOGY , 42X, 2?HI : l L Ml! NT PROPERTY TY Pf S/ / /6F LAS 1452 
1H EL N0,SX,4HND-T ,5H ND-2,511 Nlt-3,5H NO— 4 , 5H MQ-5,5+1 ND-6,5H ND-7 , FLAS 14 53 
25H NO-8,1 IX. 4HELMT,5K PRES,5H MTRL.5H rHCK,5H 0TMP.5H TCf)Y,5H TGOZFLAS 1 454 
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Table Vli-1 (contd) 



!,5H AREA,5M 1 -XX , 5H I-YY,5fi 1-22, 5H FI-Y//) 

FI. A SI 4 55 

7/1?" 

IF HMES) 7908,7909,790ft 

FL AS1456 

7 VO 8 

CALL MESC 

FLAS1457 


GC Tf) 79 

FLAS14SR 

7V09 

CALL MF.5T 

FLAS 1459 


IF 1 1 ERR ] 300,79,300 

FLASI AM) 

19 

DO 90UO Met, IT 

FLASI 461 


CALL TOPO 

EL AS ) 462 


IF IlNP-u 9000,5895,5895 

E L A S l 4 6 3 

5895 

HWllt' OUTPUT TAPE 6, 7959, M. (Nil), 1*1, 81, 1 ELT , JPRS, IMPT, 1 T IC . ITFM 

FLAS 1464 

I 

L, JSDY.JSnZ, JARE,.JMMX, JMMY, JMMZ, JMF 1 

PLAS1465 

9000 

CONTINUE 

FLASI 4fe6 

7V59 

FORMAT M6,4X f ftI5.10X,12l5) 

FLASI 467 


CALL SR AT 

FLASI 46fl 


1 1 = 1 

FLASI *69 


DtJ 461 K=l , IN 

EL AS 1 470 


IK-ISIRU) 

ELAS147L 


IKDel IK“1 )* IDEG 

FLAS 1*72 


DO 46 J«1 , 10EG 

FLASI 473 


I=IKH+J 

F1.AS1474 


J BB 1 = | BB+ 1 

EL AS l 475 


iB(ii = iBd+r 

FLASI 476 


N= IAMB01 ) 

EL ASl 477 


IF { N 1 45,46,46 

FLAS1478 

45 

IF (N+M 451,452,46 

FL AS L 479 

451 

IAUF\BT)=-II 

F L A S 1 4 80 


(TD TO 453 

FLAS14RI 

452 

T A MftRI 1*1 J 

ELAS14B2 

433 

ll-II+l 

EL ASl 483 

46 

CONTINUE 

ELAS 1 4fl4 

461 

CONTINUE 

FLAS14R5 


1 SUM=| 1-1 

FL AS 1 Aflft 


OU 47 1 = 1 ,IND 

FLAS) 487 


1001 = 18(1+1 

ELASl4flfl 


N = t A ( J BO I 1 

FLAS1489 


IF ( M I 47,47,48 

EL AS 1 490 

4b 

IF (N-lOOni) )4R1 ,462,48? 

ELAS1491 

482 

1BH 1 = 100+1 

ELAS 1492 


JAUBBI ) =- IND1 

+L AS1493 


Gn TO 47 

T I.AS 1494 

461 

I FlRNe ] BB+N 

*= 1. AS 1 495 


iBfii=iee+i 

FLAS) 496 


IAUSBI ) = IA(IBBN) 

FLASI 497 

4 7 

CONTINUE 

FLA5149A 


READ IN EXTERNAL CONCENTRATED LOADS 

ELAS l 499 


no 2310 1=1,1 ND 

FLAS 1500 


t DEF I = I DEF + I 

FLASI 501 


DUMMY (I+4000)=0, 

FLA51502 

2310 

AA( IUEF I 1*0. 

EL AS 1 503 


IF IIP) 300,820,5450 

FLAS) 504 

5430 

L=0 

FLAS 1505 


NTP= IP 

FLASI 506 

6000 

IF (L+IOOO-NTP) 8100,8200,8200 

ELAS1 507 

8 lOQ 

IP=IOOO 

FLASI ?08 


GU TU l?ll 

f LAS1509 

H700 

1 P=NTP— L 

FI.AS1510 

1211 

READ INPUT TAPE 3 , l ?. 1 , l I UUM ( 1 ) , 1 DtIM | I + 1 000 ) , IJUMM Y ( J +2000 ) , 1 = 1 * I P 1 

FLASI 511 


DO 2311 1=1, IP 

FLAS 181 ? 


N0=10UM( I ] 

FLAS 1 51 3 


KCO-IDUNI 1+1000) 

FLAS1514 


ir (KC0-1DFGP 326,377,300 

EL ASl 51 5 

326 

IF (XCOP 300,300,327 

FLAS1516 

327 

IF 1 NO-IN) 328*329,300 

FI AS151 7 

326 

IF (NO) 300,300,329 

FL AS L 5 1 6 

329 

J = I DEG* ( NQ-1 J+KCO 

FLAS1519 


1 Dfc F J= I DEF + J 

FLASI 570 


A A { 1 DF F J ) =01IMM Y 1 1*2000) 

FLAS 1521 


1 BBJ= 1 BB+ J 

ELAS1522 


1 ft = I A 1 J BB J 1 

FLAS1523 


r IC J - J I C* J 

231 1 DUMMY ( IH+4000) = IIUMMY[ 18+4000 ) + AA( I I t'.J ) * DUMMY ( I +2000 1 
121 FORMAT I5 M'*t II .611.51 ) 

C PRIM OUT 11 1 SPL ACfMfW I AND FORCF RfKlMnARY ciindi thins 
H?U IF UNP-l ) 2520,2521,2421 
2 62J no 6201 J = 1 » I DfG 

I BBJ* I BB + J- l 
I IC J= 1 IC+J-1 
L DEF J= I DE F+J-l 
WRITE OUTPUT TAPE *,620?, J 

6202 FORMAT I IH1 , 30X , 55HFDRCF AMD IJ I SPL ACI'MFN T BOUNDARY CHMOITIMNS IN 
1 IKkCllUN, J5///2I SH NUDE » ?X * IMP, 1 2X , JH 1 Rfl, 4X , 3H J IIH , AX , l HC , l MX I // I 
on R203 1=1 , J NO, I DEG 
ipni=iRnj+i 
inBJ=U5Bj+l 
I ICI = I ICJ + 1 
I DEF I = 1 UE F J+ 1 
K= I / I UEG+1 

DUMMY (K1 = A A ( 1 OFF I I 

I OUM ( K+ 1 000 ) = l A ( IRHII 
I DllM ( K+2000 ) = I A ( I BO J I 

8203 DlfHMY(K + 3000)=AA( I ICII 

WRITE DU 1 PUT TAPE 6 , 6? 1 A , ( K , DUMMY I K > , I 1)UM( K+ 7000 > , 1 OHM ( K+ 1 000 I , 

1 DUMMY (K+300D ) ,K=1 , I N I 
621* FORMAT I (2(15, 1:16,4, 217, F15, 4, 10X1 1) 

8201 CONTINUE 
L = L+ 1000 

IF ( L-NTP I HOOO, 2517, 2517 
2517 IP-NTP 
2 520 DO 6204 I *1 , I NO 
I OFF 1= lOET+I 

8204 AA( IOEF I ) =OUMMY( I +400D) 

C COMPUTE IMPORTANT CONSTANTS 

I S T= I U+ I SUH+ l 
LiST=IST-9000 
IF (LIST) 353,354,354 

354 WRITE OUTPUT TAPE 6, 355, LI ST 

355 FORMAT I6X ,34HF)(IMMY AREA OVFRLAPS COMMON AREA HV,|6, 19H DECIMAL 
10CATI0NS ,/5X,fl7H RFCOMPILF BY CHANGING I HF FOIIlVALENCFS OF DUMMY 
2ND BB IN LINKS l AND 3, RESPFCT I VELY. I 

353 CALL TICK IIT1M) 

ClT=IT|h 

Cl T=C1 T/60 , 

WRITE OUTPUT TAPE 6, 5555, C IT 
5555 FORMAT I 16H INPUT LINK T OOK , F7 ,2 , 1 OK SECONDS,) 

HFAI) 1NPIJI I APt 5, 2800, TEST 
IF IJNP-1) 332*332,331 

331 Nfll - XIOCF I AA (} ) ) 

NB2-XLUC F I A A ( M 0+ l I I 
NB3=XLUCF IAA ( IST + l ) I 
NCI “NB1 -Nfl? 

NC3=Nftl-NS)3 

NKIIE OUT PHI 1 APE 6, 5666, II , I A ( I ) , I = 1 , NC 1 ) 

6666 FORMAT (LH1.RKIA BLOCK // I ?() I 6 I ) 

WRITE OUTPUT TAPE A, 6667 , II , A A M ) , I = 1 , h)C3 ) 

666/ FUKMAT I 1 H 1 , H H AA BLOCK// I 5 M 6, E 1 5 . / , 3X II ) 

IF [ ! ERR ) 346,332,346 
346 READ INPUT 1 APF 5,7HU(],1FSI 
IF { TFST-CTFS I 3*6*2 TOO, 146 
26U0 FORMAT ( 7 7X , A3 ) 

332 IF ( INX-I I 300,3321,3322 

3321 Cn TO 2700 

3322 CALL CHAIN !2,ITAP> 

300 WRITE OUTPUT TAPE 6*6665 
6665 FORMAT (1 HI . 1 ?H INPUT l-RRIH I 
I FRR= 1 
CO Tf) 331 
ENO 


Table VII-2. Source program listing of subroutine ARAN (Link 1) 


* LARFL 

CfclARN CIARWOOO 

SUBROUTINE ARAN MARNODl 

C MhLARFLS MFSII POINTS F 1 ARNflO? 

DIMENSION | A ( 1 I ,AA[ 1 ) , RFM I I 3 I . N \ I 10). DUMMY I 5000) , I HUM ( T/tOO) ,N(ft) F1AKN003 
L, PI 74 I *UV 1 24 ) , X ( R ) ,YC«) ,71 HI .XUI7) ,Y II I 7), 7 IK 7), RUMMY I ?7,9| F 1 ARN004 

7,n?ll2l I *511), r,l (1) F I ARN005 

COMMON I A,AA PlAftNOOb 

EOII I VALENCE |fA,AA|,(AA| 9000 J , DUMMY I F1ARW007 

FOU I VA I ENC t ( DUMMY , I f)UM, NT , RUMMY } , (IXIMPY (11) ,RFMI El ARNO Oft 

FUnl VALENCE M A ■) ) , I N I , (I A I 2 P , 1 RN ) , (I A < 3 > , I T > , II A I 4 I , KK > . U A I 5 | * FlARMt)09 
I IPRS) , ( I A ( 6 ) , I TYPE ] , f I A ( 7 ) , I MAI I . IIA(ft) , I Off. ) . ( I A < 9 I * I NX ) * II A I ID ] ,F1 ARNDIO 
7IHMUI11MRI.UAU7). I MftX | . I I A I I 3 ] , 1 MM Y I , ( 1 A < 1 4 ) , JMM? ) , ( 1 A U 8 ) . F 1 ARNO I 1 
UKFI 1 , I 1AI 16), |ARP),UAI17 I .M(l I ) , 1 1 AI75I *M) ,| IAI261 , 1TY ) , I I A I 27 ) , E I AftNOl 2 
MSTR) *11 AI2H), ItLT) , ( IA(29), ITEM) ,f 1 A ( 30 > , 1 T I G ) , M A 1 1 1 ) . I MF T ) . F) ARNO l 3 
51 I A ( 32 1 t I SUM ) . I I A I 33 I * 1NU ) , I I A I 3* P . I MS ) , ( 1 A I 34 ) , I ITS J , ( IAI3M . hlAUNOl* 

MI1RD) * U A(3fl). IflRDI ) . I J A I 3V I , AC EL ) , I ! A | SO > , J 1 ) , I I A 1 5 1) * J? ) * F) ARNO I 5 

7UA152), J3K MA(53) ,.14), I [ AI 54] ,J51 , 1IA( 55) ,J6P , ( IA( 56) ,J7) , ( J A ( S 7 F l ARNO) 6 
ft I, J0 ) * I ] A I 58), JTY) *(IAI 59). IBM) , I 1A160I , IBfl), (I A (61 I . I ID), II A (6? I ,F 1 ARNO l 7 

VI |A> * I 1A<63>. I Of I *< 14(641 • IDY) , l IAI651 , l IF) , I I A I 41 | , 1TAP) 

tmUVAlfcMr.t ( 14(66), ICAR I .UA(67),ir.IX| .( [A(6H), ICIY). ( IA(69>, 

UC! 7) , I 1M70P . JCF! ) , I IA(71 ) ,IXX), [ |A(77) , I YY > . ( I A ( 73) , 122 I * 

2114174) , I IC), I IA(75), I OFF ), HA<7M, 1ST) , UA(77), I I 5 ) 

3 , I l A ( 7ft ) * IDEM J * ( 1 41 79) ,IFRR) , I AA ( 80 ) . TF P , I AA ( ftl ) , I»T ) . f A A [ ft? ) , DC, J , 

4 I AA ( H 3 ) , ALI ),(AAIK4).AL2P , ( AA ( ft 5 ) , AL3 ) , I A A ( 86 J , D? 1 ) , I A A II 07 ) , P J , 

5IAAU31 > ,KV), I AAU55I ,XI , t AAU63)*Y) . I AA( 171 ) .2 ) ,1 A4U79 I *xni . 
MAA(lB6),YD),(4AU93|,Zf»| . ( A4| 351 ).S) . IAA (40 I ,2G*-WP 
7 , ( AA 1 47 ) , I NP ( , ( A A (4 3 1 , I PBG ) . ( AA ( 44 ) , | PFN J . ( AA( *5 ) .CONS) , [ AA 1 46 I , 1 UF I A ft NO 7ft 
M) , | AAI47 P ,G1). I AAI48) ,G?I ,( 44149) ,03} F | ARNO? 7 

EOUlVALtNCF M A 1 35 ) , I SHlJF ) , (I A I 301) . I SUR } MARN028 

r'm/I VALENCE (AA( 302 ),MI P,(A4l303),MX),(AA[3D4Til 1.<AA(305), !PI +IARN02 9 

eOUTVALENCF I AH 1 M , I BBC I . I AB I N , | B AND ) r 1 AHN030 

D)MFnS|I>M IBftr.l ftOOO ) , IBANIH HOOOI . ISIRI 540) , I MAX ( 540) , I M|N| 440) . F 1ARN0X1 
1 AftlNt 540,151 .ISIRU540I FI ARN032 

FDUl VALENCE ( DUMMY , AB IN P , ( DUMMY I 8100 ) , ISIRJ ♦ ( DUMMY I «640 ) , IMAX) , F IARN033 
1 ( DUMMY ( y l ftlJ I . IMIN), IOirPMY(B640),ISIRT) FI ARN034 

CLT = 0. F I Ml NO 35 


E I AftNCl 8 
F LARN019 
F1ARN020 
F PARN07) 
El ARN077 
F 1 ARNO? 3 
F l ARND24 
F 1 AHN025 


mo NEP-? 

NftO-NRrj+i 

I=NHW 

(TIP 1 U 1130 
1 120 NEP=1 

NfO=Nt f J-l 
1 -NEO 
1130 [P=l+1 

1(T= I MAXI 1 I - 1 MAX (IP) 

I L= I Ml MU I— i M INI IP ) 

II' ( KTJ 1140, 11 50*1150 
1140 KXN= I MAX ( I ) 

MX- I MAX I 1 P ) 

GO TO 1160 
1 150 M*M=1NAX( IP > 

MX= I MAX I J I 

1160 IF MU 11 /O, I 1KO,\1XO 
11 tO M1M=IMIN( IP) 

Ml - 1 Ml N ( 1 ) 

GO TO 1190 
1160 MIM=IM|N(| ) 

Ml = IMINI 1PI 
1 IVO .1 J - I I-I 1/36+1 

ACII=AR IN( IP, .1.1 ) 

JPITU-36*! JJ-1 P 
I IP+LFBINUCH, JB1T) 

IF (IIP) 1270. 1210, 1270 
1210 IF IIMINID-I) 1220,1230,1220 
1220 IF UNINIIPP-IPI 1240,12 30,1240 
1230 rL=T(.+l 

1240 IF (IMAX(l)-n 1250. 1760, l ?5I) 
1250 IF I I MAX ( IP )— 1 P ) 1270,1760,1770 
1 2 60 IG=1C+1 

12/0 IF IlG+lLl 1910,1280. 14H0 
1 2«0 N/L»0 
NZIT=0 

on i3oo ,i=i, in 


FL A S I 574 
FL AS1 57 5 
ELAS1 S?4 
FLAS1527 
FLAM52H 
FLAS1529 
FLAS 15 30 
FI. AS 15 31 
FLA S l 51? 
FL AS 1 533 
FL AS l 534 
I1FLAS1535 
FLASl 536 
FI. AS) 537 
H AS I 63H 
FLAS1B39 
EL a S 1 540 
FL6S1541 
FLAS L542 
FLAS1S43 
FLASI 544 
FL0S1545 
FI.A5 L546 
FL AS 1 547 
EL AS l 54R 
ELAS1549 
EL AS l 560 
FL AS 1 55 1 
FI. AS I 552 
FL AS t 55 3 
FLASI 554 
FLASI 555 
FLAS l 556 
FI A S 1 557 
FLAS! 553 
FL AS 1 559 
FI. AS1 560 
FLAS1561 
LELAS1562 
AELASI563 
M. «S 1564 
FLAS 1865 
FLASI 566 
ELAS15F7 
FLASI 568 
FI AS I 569 
PL AS t 570 
FLASI 571 
FLAS 1 572 
FLASI 573 
FLASI 574 
FLA SI 875 
FLASI 576 
EL AS 1 577 
EL AS 1 516 
FLASI 579 
FLASI 580 
FLASI Sftl 
FLAS15H? 
FLASL5R3 

FLAS15H4 
ELASl 5R5 
EL AS 1 586 
ELAS16K7 

ELASIHftR 
FLAS15«9 
FLASI 690 
FLASI 891 
FLAS l 89? 


F 1 AKNl 14 
r ) A«N1 I 5 
FI ARN116 
F14RNI 1 7 
FI ARMllfl 
FI AHN1 l 9 
rnuNi ?n 

FT ARN171 
El ARN1?? 
FL ARM173 
FI ARN124 
F l ARW178 
E1AKN1 76 

r i ak'ji7 r 

E1ARN) ?R 
F) ARN129 
f) A RN 1 30 
FT ARN1 31 
FT ARM 3? 
FI ARNI33 
F J A ft M 34 
FI ARN138 
F1ARN136 
T 1 AKN! 37 
FI AKN1 3ft 
F ) 4RN1 39 
El ARM 40 
F 1 ARM l 4 1 
FI AKN14? 
n 1 Alt N 1 43 
FI ARM! 44 
F 14KN1 *5 
El AftM 4£ 
f- i arm 1 47 
+ 1 ARM 4^ 
FTARN149 
Ft ARM 50 
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Table VII-2 (contd) 


1 0 
1 

20 


23 

24 

25 

*0 

*J0 

tuc 


jyo 

'iuo 

420 


500 

6t>o 

o 20 
ro t> 

I'M* 


SOU 

i ion 


I lu? 
I lui> 

I 106 
I Ui't 
I LuP 


i ion 


i m 

3 


1ZV> 
1 3U0 
KUO 

1320 

1330 


1 .14 0 
1 330 

1 3o0 

1 364 
lA(0 
1 3(5 


XSAP= 0 » 

XN- IN 
NCVCL -0 
NCYCN- l N/ 10+3 
IS*JKP = I5UR+1 
! CYCL =-l 

If- I I SHIJF - 1 1 90 . NO. 10 

RPAO INPUT TAPF 5 . 1 tflSIRflJ.lM.INI 

FORMAT < 2 MM 

00 20 1 = 1 , IN 
I SlKT M )=I 
Ml = l 

MX= IN 

nrl 80 I-l , IN 

OD 71 IP=ItIN 

IF ( isiftl II-TSIRT I ]p|j ? 3 , 24.?3 
r.UNI I\u£ 

Gf.l TO 3100 

1 P CI-IPI 25 , 80.25 

ISIRTI IP | = IS I AT < 1 1 

CALL £XCH 

CONTINUE 

DM 100 1 = 1 , m 

TMNt I )-t> 

1 MAX f I 1 -0 

0(1 700 1 = 1 . 1 N 
rid 400 J= l , I StlR 
ACH-ft fi I N I 1 ,J> 
f)U 300 JB=l,36 

If ( LfB I N ( 6 C.H . . 1 H I ) 470 . 300.420 

CONTINUE 

CONTINUE 

CO TO 3100 

IMINI 11 = 36*1 J-L 1 +JB 

ji:=isukp-j 
111 ) 600 
JM-I 5 UKP-J 

ach-ab ini i ,jen 

(10 500 JH=i ,36 
JBC= 36 -JB +1 

IT UFHtNI ACH..IRC I) 670 . 600,670 

CONTINUL- 

CONTIMJfc 

Cti TO 3100 

lMAXt I )= 36 *JKJ-JH+ I 

C ON I iNUb 

IF (lSHiiF-lJ 2010 , 750.750 
CALL TICK ||T|M) 

COT- I TIM 

IF f I NP- 1 ) 1 1 00 * 1 100, 800 

CAL l. UIJIHT 

NH 0=0 

Nr 0 =IN 

NCH = I) 

ICYCL-ICYCL +1 
X.SA= i N— I MA X I 1 J 
I l«'AXP= I MAX I l J 
XPAXP= 1MAX.P 
DO 1105 1 = 2 . IN 

IF I | MAX I I I - 1 MAX P ] 1105 , 1105,1102 

I MA XP= I MAX ( I } 

XMAXP-lMAXP 

XSA=XSA+XN— XMAXP 

IF (XSA-XSAPJ 1 106 . 1 106. 1 107 

ni:yci.*ncycl+i 

IF {NCYCL-NCYCN} 1 (OR, 1 ion, 1 NR 6 
X.SAP=X 5 A 

Nr.YCL=0 

CALL TICK MTIM) 

CMT ~ I T I M 

CNT=ICNT-CRT )/ 60 . 

IF (CNT-CI.T 1 1 I 10 , l ION, 11 ON 
C.(.T=CLT* 10 n, 

WRITE OUTPUT LAPP 6 , 3 , OT , J CYCL . XSA 
IF (CNT- 100.1 1110 , 1110,1111 
PUNCH 1, ( JSJR m, |=1 . IN) 

FORMAT MH AT , F 7 « ? » 1 OH o c R c L* n F L 

L. IJPPFR OPE- MA«l> FLFMFNl COUNT IlF *FS 
I J= IP+J 

IF I 1 J- I N | 1790. 17 90,1310 
IF 1 I«|N( |J)- V 1 M| 1300 , l»rtll,l >70 
CCINT JNUI- 
KNN= 1 N 
GU 10 1 730 
MNN=IMIM | J |-l 
DO 1350 J-U 1 U 
, 1 I = J-.T 

IF IJI-ll I 560 . 1340, 1340 
IF ( (NAXIJI l-wXM) 1 366 , 1 35 u, l >60 
CriNTINf/F 
MXA =1 

CO Tf! 1370 
MXtt= 1 MAXI.II | + l 
IF I MIN-MIM) 1410 . 1375,1375 
IF (MNM-D 13 Nn. 13 HO.J 3 Mn 


f 1ARN036 
FIARN037 
FI ARN03M 
FI ARNO 39 
Fl ARNO40 
FT ARN04I 
r IARN04? 
£1 AHIM04 3 
FURN044 
F1ARN045 
Fl ARN046 
FTARNn47 
F 1 ARN04H 
F1ARN049 
F1ARNO50 
F 1 A UNO 51 
F1ARN052 
e l ARNO 5 3 
F1ARN054 
tl ARNO 53 
n ARN056 
HARN057 
F1ARN05A 
FIARN059 
PI ARW060 
FTARMnM 

F } ARN067 
H ARN063 
F1ARN064 
E 1 AM NO 6 5 
F( ARN066 
F1ARN067 
Fl ARN068 
Fl 6RM0A9 
F1AHN070 
f 1 A KNn7l 
F1AKN072 
FT A R MO 7 3 
F1ARW074 
P 1 A R MO 7 5 
Fl ARN0V6 
Fl ARN077 
F 1 ARW07M 
FJ. APM07N 
+ ] ARNORO 
bl AR«nfM 
F1ARN0R2 
FJ ARM0M3 
F] ARN0R4 
b 1 ARNO 85 
Fl ARIJ0R6 
HARM0R7 
F 1 ARNOflfl 
F1ARM0H9 
F1ARN0N0 
Fl ARM091 
El ARU092 
Fl ARM093 
Fl ARNO 94 
Fl A U NON 5 
Fl AKM0N6 
F] AKN097 
PI ARNONM 
F] AKNC19N 
Fl AHN100 
Fl ARN101 
Tl ARN10? 
F1AHN103 
F1ARN104 
F ! AHM106 
PI ARN1 Ob 
F1ARN107 
FURNIOR 
F 1 ANN 1 09 
PJ ARNI U> 
l : 1 ARN 1 1 ] 

f NG .16, 75W I N7FRCFI AN6FS OON PP 1ANM11? 
TOPril.UrSY I l A T R I X TS.FN.OJ FJAR511 3 
F 1 ARM 1 5 1 
P1ARN15? 
I 1 ARNI S3 
F ! 6PN1 54 
PI ARNJ 55 
FJ 

F 1 A UNi 57 

F I ARNI 5H 
F 1 A k N) SN 
b 1ARM1 Ml 
F( AKN1M 

F I ARNI 57 
riAUNl 63 
F | ARN| 64 
PI ARNI 65 
P I AKN ] 56 

PI ftJINl 4? 


lityO MNN= l-l 

00 TO 1370 

IaNO 00 1400 J=MIm,MNN 
.1 J= ( J- 1 I /36 
JJP+JJ+1 
ACU = A0INM ,JJP) 

JRIT-J-36*JJ 

IF (LEM INI ACH, JH I I )) 1396,1393,1395 
ls93 NZG=NZG+1 
1^96 ACU=AtnNUP,JJP ) 
jnrT=j-36*jj 

IF ICEMINI ACH.JB1TH 14(10,1397,1400 
1397 N2L=N2L-*-l 
1400 CONTINUE 

!4jn IF (KXB-MXMJ 1 41 5 , I 4 J 5 , 1 4A0 
IMS IF (MXM-IP) 1420,1420,1430 
1420 MXB= I P+ 1 

GU TO 1410 

1 4 3(1 UO 1450 .l = HXH , MXM 
JJ^IJ-1 I/3G+1 
ACU = ABI N I I, JJ I 
BCH=AB1N(1P,JJJ 
JH1T=J^36*( JJ-1 ) 

IP (LEfilNt ACH.JH1T) I 1440,1435,1440 
1435 N2L.-N2LH 

1440 IF (LEBINIRCH.JftlTH UJO , 1445 , 1450 
1445 NZG+NZC+l 
14*0 CONTINUE 

1460 IF ( NZG-NZL > INI O, 1910. 1480 
i4ao icyl:l = ir.YCl + 1 
CALL EXCU 
NCH= 1 5 1 R < 1 ] 

ISIRm = ISI(M IP) 

ISIKI IP) =NCH 
IF (IIP! 1720,1630,1720 
1630 IF I I MAX ( 1 P ) — I P I 1650,1640,1650 
1640 |M4X( IP}=l*AXt IP 1-1 
1630 IF IlMAXin-I) 1670,1660,1670 
1660 I MAX ( I 1 = 1 MAXI I ) H 
16/0 IF l |M|N( 1 J — I | 1690,1680,1690 
16*10 [MINI l l = IM|N( J) vl 
16N0 IF MMIN(IP)-IP) 1720,1710.1720 
1IL0 IMINI IP)= IrtlNI IPl-l 
1 720 Nf,H= f MAX ( I ) 

IMAXI I | = I MAXI IP) 

IMAX I IP |=NCH 
NCH-1MIM I I 
IMINI I ) = I MI N ( IP) 

1 Ml M JPl-NCH 

DO 1900 J=M| ■ MX 

IF M 1-JJ* I 1P-J) I 1740,1900,1740 
l (40 IF (J-IJ 1 HI 0,190(1.1750 
1(50 IF IIMJNIJI-I) 1780,1760,1780 
1(60 JJ+IJ-1 1/36+1 
ACH=A8INI 1 , J J 1 
JHJ r=J-364(,l,J-l ) 

IF ILEMNIACU, JO IT) I 1900 , 1770 , 1 900 
1 ( (0 IMINI J I ■ 1 M I N I J I ♦ 1 
GO TO 1900 

1(60 IF I I Ml N ( J I - [ P 1 1900, 17V0. 1900 
1 190 I MINI J l = lMlNt.n-l 
GO TO 1900 

1610 IF ( I MAX I J 1 —I I 1830,1820,1830 
1620 IMAX ( J ) = I MAX I ,J J + 1 
GO TO 1900 

1630 IF IIMAXIJI-IP) 1900,1840,1900 
1640 JJ=< J“1 )/36+l 

ACH=AMIN| 1H..IJ ) 

JR1T=J-36*|JJ-1 ) 

IF (LEMNIAru, Jill T) I 1900,11(50, 1900 
1 650 IMAX( J)=IMAXIJ)-l 
1900 CONTINUE 

1910 IF INBO-NRO) 1960,1970,1970 
1960 Gl) TO (1110.il20l.NFP 
T 9 (0 IF (NCI!) 1)00,1980,1100 
1990 CONTI Nil F 

1 96 5 IF IlNP-n 2006,2005,1990 
1990 CALL UUTPT 
20U5 CALI. I ICK II T (M ) 

CNT = I T I M 

CNT=(CNT-CHT|/60, 

WRJTF OUTPUT TAPE 6 , 3 , CMT , I CYCL . *SA 
2010 ME 0= I N“ ! 

00 2100 1=1, NFC 
1P=I+1 

IJ UMAX! IP )- I MAXIM) 20 30 . 2 100 . 2) 00 
21130 IMAX I IP 1 = 1 MAX ( I ) 

?(U0 CONTINUE 

IF IISHI.IF-1) 3000,2 300,2 300 
23U0 PUNCH 1,( ISIR1I I.1MAXI II, 1=1, IN) 

3000 KEfUKN 

3100 WRJTF riUTPUT TAPF 6,4,1 

4 FORMAT (10H THE POINT . Ifi,3 3H DOES NUT APPFAR |N MF5H TI"iPrn.nr,Y) 
GO TO 3000 
ENI) 


Table VII-3. Source program listing of subroutine BUNG (Link 1) 


* LABEL 

CE 1 HUNG FIRUNGOO 

SUBROUTINE Bl'NG F)P(iNG01 

C DUMMY SUBROUTINE FOR BOUNDARY CUNOtTinN GFNERATOR riFMJNnn2 

RETURN Fl RUNG 03 

END F1BUNG04 


F (AKM>^H 
n ARM) 8<? 
Fl ARM l 70 
PI Aft Ml 7] 
F I ARM) 72 
Fl ARM) 73 
Fl AKN174 
F l ARM 75 
F l ARNI 7 5 
P 1 A R M ? 7 
F l ARM I 7R 
FlARNl T9 
E 1 AHNlflO 
Fl ARM ftl 
F 1 ARM 1 R2 
FlARNl R3 
FIARNIA4 
Fl A P N 1 R5 
F ) ARM 86 
F1AHN1 87 
FiAHNiaa 
Fl ARNI R9 
F l ARM 1 90 
Fl ARNI 91 
F1ARM92 
F1ARN193 
F LARN194 
Fl ARM 95 
FIARN196 
El ARM 97 
E IARN1NS 
F1ARM99 
f I ARN200 
El ARN201 
Fl ARN202 
ELARN203 
F I AHN704 
El ARN205 
Fl ARN206 
FIARN207 
F (ARN2HR 
Fl ARN209 
F1ARN210 
Fl ARN21 \ 
P1ARN21 2 

? 1 ARN21 3 
Fl A RN2 I 4 

F1ARN215 
Fl ARN216 
E1AHN21 7 
f URN2LB 
F1ARNP19 
Fl ARN220 
F (AHN221 
El ARN222 
F 1AHN273 
F1ARN224 
t I ARN225 
E l A RN?2 6 
F JARN227 
F l A RN??6 
F IARN229 
FIARN230 
F1ARN231 
£lAftN2 32 
E14RW233 
Fl ARN2 34 
F1ARN235 
El ARN2 36 
Fl ARN237 
FIAP1N2 38 
Fl ARN?39 
Fl ARN240 
F I ARN241 
F1ARN242 
F IARU243 
EURN244 
b IARN24S 
Tl ARP246 
Ft ARN247 
El ARM 48 

F 1AMN249 
F1AI*N2 50 
F 1AKN25 1 
F1.ARN7 52 
F LARN253 
F1ARN254 

E URN255 
F1ARN2D6 
F1ARN2S7 
Fl ARN7 6H 
FIARN259 
E1ARJV2 60 
F1ARN24) 
Fl ARN?6? 
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Table VII-4. Source program listing of 
subroutine COOR (Link 1) 


Table V11-6. Source program listing of 
subroutine EXCH (Link 1) 


SUBROUTINE COOK E lCnuniU 

READS AND STORES CHORD INA1 l-S F1CHR007 

DIMENSION IMll.Ail U.REMU3I .NTIIDJ , DUMMY! 5000 1 t I DOM I 5000) ,N(61 FI COR DO 3 
l.PIZRI t UV|24 I ,X(6l ,Y{ S > , 2 < B J ,X0t7> ,YD(7> ,2111 VI , RUMMY I 7 i ,91 E1CDR004 

2 *021121 ) ,si 1 ) ,GI< 1 ) MCIW00 5 

GDMMUN 1A,AA F.lCDKOOA 

EQUIVALENCE t 1 A , A A I , ( A A ( 9000), DUMMY I FlCDRnO? 

EOUI VALENCE ( DUMMY, |fHJM t NT, RUMMY) , f DUMMY ( 1 I >,REM) FLCDROOS 

EQUIVALENCE ( IAI1),INI , t 1A<2I, IHNI ,( IA(3) , IT ), 1 IAt4>, IPI . MA15! , CldMOnv 
II PK5 >,UA(feJ , [TYPE I, < IA( 1 J, iMAf I , I 1 A I « I , I flECrl , < I A ( 9 } , 1 NX } . f 1 A ( 1 0 > ,E lCnkfllfl 
2 I H ? ,tlA(HJ,IB),<JA(12) , 1MMX ),|!AU3M MMY ) , t [ A < 1 c } T I MMZ ) t II A ( l $ I ♦ E 1 CORO 1 1 
3IMF1), [ 1M 1A) , 1ARE) , 4 1 A < 1 7 ] ,N|] I) ♦< I A < ?5 1 , M 1 , (1 A ( ?6 ) , I TY I , 1 1A(?7 ) ,E lCfiftOl 2 
4ISTR I, I I A(2fl), IFlT) . ( I A ( 29 ) , IT l:M > , I I A I 30 J . 11 I C 1 . ( i A< 3 L ) , I MET > , El CORO 13 
St IA( 321 , 1 SUM) « { |A( 33 >, I M3 J , (I A ( 34 1 , I MS 1 , ( I A ( 3M * IDS I « t I A < 37 I , F1COR014 

MORDI, | IAL38J. I0KOI), I IAI39I ,ACEL 1 , M A ( SO ) , Jl I , ( 1 A ( 5 L > . J2 I , El CORD 1 5 

7< 1A(52) t J3l, <IA(53l ,J4), <]A<54) ,J5), | Ut551,J6>, UA(5A] ,J7) . I I A I 4 YF 1 CMK01 6 
9 ) , JR I , I I A ( SB > , ,IT Y I , (IA(591 , 1HB! , < U(fcO), f BO I «( |A( 61 >, HD) ,t I A [621 ,E 100*1117 
91 1A ), { IA<63) , IDT ), t I At/,4) , IDYJ , [ I A (AS I, I I FI * t I A I * 1 I , I TAP 1 F ICDRO l ft 

EQUIVALENCE < IM66) ,ICAR) , <1 At A7>, IC IX) , I I A I 4>H 1 , IC I Y I , ( IA(69) , El CORO l 9 
HCm, ( 1AI701, ICFI ) , (IA<7|), |XX) , ( |A<72), IVY) , < I A{73), IZZ)« I 1 LOR 020 

2< I * (74), 1IC ) , II A<Y*5>, JDFF) , II6I76) .1ST), I IA( ?7),1 IS! El CORD?) 

3f t I A I 78 1 1 I KFM I f I I A I 7 V J , I FKK I . I AA ( RO ) , T F ) * I A A I M ) , DT > , I AA | R2 I * DC, } t FI COR 02 2 
4 ( A A ( 63 ) , 4L l ) , | flfl ( 64 ) , A L ? ) , ( A A I «5 ) , AL 3 ) . t A A [ I) A I , 0?1 ) . I A A I 107 ) , P ) . F1COR073 
5(AA(13l >.UV>, IAAt 155I.X), IAA[ 163) ,YI, t 4AU71 ) ,Z ) ,tAA| 1791 ,XD) , F1I.0RD24 

6 1 A A ( 1 86 J , YD 1 , I AA < 19 31 • 2 IT 1 . ( AA ( 351 1 * S ) , ( AA ( AO ) , ZGFM ) FM:t«Rn75 

7, I AA(4?>, INP >, [AA(A3 I , I PRO) , T AA I 44 I , I PFN I , ( A A ( 45 1 , CONS J , l A A <«M , [UF1C0R026 
8) , t A A (47) ,G1 I , I A A I A 8 I ,G2 I , f AA< 49 | ,G3 J El CORO ?7 

EQUIVALENCE (IAC349),MTIC1, ( IAt34R| , ISDT I ,1 1A| 34?) , ISDY) 1 < JAI346) F l COR 02 R 
U I SDZJ T U6I345J, JVItI LAI 344) , JIO) . ( S A(343) t JPRS) , I I A t 342 > . .LSDY 1 FlC()R<J?V 
2* ( I A( 341 ) , JSI'Z ) , ( lAt34G)»JAftEK I I A I 339] , (I AI33M MCI1R030 

3, UA(337 ),JMMZ>.< 1AL336I.JMFI ) , ( I A ( 333 ) , I T AS ) , 11 A I 334 } , I D7 1 FtCtlRdM 

4, I I A( 333), I PR I , t A A I 33? 1 , 1)0 Y I , ( AA ( 331), QCZ ) , t A A | 3 30 ) , PRF S I FlCI)Rt)3? 

5, I IA 1329) ,JP1R) F 1 CtlRD 33 

ItRR = 0 F 1 CUR 034 

L*=0 F 1 CORO 35 

631 lNTE = llN-L-l)/2 F 1 COR 1)3 6 

1NTEs?#( INI E+ l ) F1CUR037 

IF (INTI— 1000) 833, 833,832 Fir.FIfttnft 

83? I NTF=1 000 F1CDR039 

833 READ INPUT TAPE 5 , 1 02, (I DIM (!) , DUMMY l I ♦ 1 IJOO I , DUMMY (I +2000 ) , PDMM Y F 10.1*040 


1 I 1 + 3000) ,INTF) 

102 FORMAT (2) I4,3E12.7) ) 

1-0 

B314 lsl+l 

IF II-INT6) 6315.6315,831 
6315 IF flOUMM)) 300,8314,8316 
8316 IF 1 I LHIM I 1 ) - L - 1 ) 300,1061,300 

1061 1,-L+l 

I XXL=) XX+L 
IYYL=I YY+L 
I 2ZL=I ZZ+L 

fiAf I XXL ) -DUMMY | H 1000) 

0 A I 1 YYL ) -DUMMY ( 1+2000) 

IF tIGEM-1) 1062,1063,300 
1063 AA ( I ZZ L ) -DUMMY ( 1 + 3000 ) 

1062 IF (l-INI 8314, 5RS0, 300 
Sb60 KEltIKN 

3U0 IER.R-1 

GO TO 4R5D 
END 


F l C DR 041 
F If. OH 1)42 
F| CPIR043 
F I COR 04 4 
F1C0R04S 
F 1 C f I K 0 4 6 

P I C0R0&7 
F : 1 CI1R048 
F I C.ri«049 
F 100X050 
F ICDRO'11 
F 1 CORO'S? 
FI CNROIS 
f i cnpn54 
r i uikoss 
f i rriR04A 

FI CORO'S? 

F 1C0R05R 

I I r.|i|l069 
p lCnROKD 


Table VII-5. Source program listing of 
subroutine CORG (Link 1) 


CF1C0RG MCORMID 

StmRODIlNE CflRG FICfikGOl 

C DUMMY 5URR0UUNE FOR CHUR 01 NATE OfNFPATO* HPIRNO? 

RETURN ricfikr.03 

ENn rir.nRr;t]4 


* LABEL 

ceitxc 

SU8ROUUNF EXCH 

C INTERCHANGES CONSEOUF T I VF kflWS AND CnLDMNS OF CONNECTIVITY MATH IX 

COMMON a a 

COIHVALtNLE f AA ( 900D ) , AH I N ] 

EQIJIVALFNCF I AAI 302 ) ,Mf) , (AA( 303) , MX) , I AA [ 304), I) , f AA { TOM , I P I 
DIMENSION AH I N I 54U ,15) 

JM|s{Ml-l)/36+l 
,)MX- I MX— 1 ) /36+1 

oo loo K=jMi,.mx 

ACH=AR INI I , K ) 

AH | N { I , K) -AR I N [ I P , k ) 
lUO AHI Nil P,K ) = ACM 
J=l I-D/36+1 
JB=I-36#(J-l ) 

JP«< I P-1 1 /36+1 
JPH-IF— 36*tJP~l ) 

IF (J-JH) 150,250,150 
)6f) IJU ?00 K=MI,MX 
ACH=ABIN(K, J) 

&CH=AR|N(K ,JP) 

NCH*LEB 1 NlAt», .JR ) 

NC T = L ER I Nt BC H , JPR ) 

CALL SE8TN (ACH,JR,MCT) 

CALL 5EHIN < RCH , J Hb ,NCH ) 

AHIMIK ,.l )=ACH 
200 AHINtK , JP 1-RC.H 
GO TM 400 

250 DO 300 K.- M 1 , MX 
AC H -A ft I Nt K , J ) 

NCH-LEHINIACH, J8 ) 

NCT-LFR] NIACH. .JP8 ) 

CALL SFRIN t ACH , Jft , NC T 1 
CALL SFRIN ) ACH , JPB . NCH I 
300 ARINtK,J)=ACH 
400 RETURN 
END 


f iFxr.oon 
F 1 FXCOOL 
F I E XC002 
EiFxcno^ 

Fl FXC004 
FlFxCDnS 
F1FXCD06 
f 1FXC0IJ7 
PI FXCD08 
F1FXC0D9 

FiFxcmo 
FlFKCni 1 
F1FXC012 
Fir-XCDl 3 
Fl FXC014 
FlFXCDl 5 
F1FXC016 

F ifxcdi ? 
F L FXC018 
F1FXCIU9 
F ] FXCO?(J 
P 1 1 : XC07 1 
F1FXC022 
F 1FXC023 

F1FXC024 
F lEXr.074 
F1EXC026 
F 1 F XC027 
F1FXC026 
f 1 FXC029 
F) EXCO30 
F 1 FXC031 
Fl FXCDT7 
F 1FXCD33 
Fl FXC034 
F IFXCO30 
F1EXC.0 3* 


Table VII-7. Source program listing of function LEBIN 
and subroutine SEBIN (Link 1) 


FAP 

COUNT 100 
LBL C1LCD 

REM 

IK I S SIIBPRtlGR AM IS CALLED USING FORTRAN 'SUBROUTINE 1 CONVENTIONS. 
CALLING SEQUENCE IS,,. 

CALL SEBINt A, 1 »N) 

WHERE 'A' IS THE NAME DF A HDKl) t VAR 1 ARL F I » 

■I 1 IS FTN INTEGER SPECIFYING m-SlREl) HIT <1-361 IN '4*. 
«N* IS A FORTRAN INTEGER ONP OR ZFRO T Ml) I CAT ING THF NEW 
V4LUF OF THE I'TH BIT OF ’A«, 

REM 

ENTRY SFHIN 

ENTRY LEniN 

REM 

EVEN 

NAC 

EOU * 

ST1 INDKIK SAVE 1NOICATORS 

5XA SAVX1 ,1 AND XR 1 

1.0 1 * 1,4 RESET 

CLA* 2,4 

PDC ,1 

ZET* 3,4 DO WE SET UR RESFT 

TRA SET SET 

R1S TABLF,1 RESET 

TRA EXIT 

EVEN 

OSl TABLE, l 

STI* 1,4 

AXT **,l 

LDI I NDK.TR 

TRA 4,4 

REM 
: PZfc 

PZE 0 

MZF 

OEC 161, l B2,1B3,1B4, IBS, I H6, 167, 188,189,1610, 1811,1612 
DEC 1813, 1B14, 16)5, 1816, 1B1 7, LB1K, 1619, IH ?0 .1B21.1R77 

OEC 1823,1624, 1625,1826, 1827 , t67fl, 1B79, 1630, 1831 , 1 R37 

DEC 1B33,)B34, 1B35 

SPACE 4 

A FUNCTION SUBPROGRAM., . 

CALLING SEQUENCE 1 X~LE8 1 N ( A, I ) * 

WHERE 'A* IS THE NAME OF A VARIABLE 

■I» IS A FIN INTEGER SPECIFYING THF DFSlftFO BIT IN 'A'. 

UN R F 1 URN III CALLFK THF AC CONTAINS A FORTRAN INTFGFR 
ONE OR ZERO DEPEND! Nfi ON WHFTHFR 1 1 TM BIT OF 1 A 1 IS 
ONE OR ZERO. 


DO WE SET UR RESFT 

SET 

RESET 


181, l 62, 163,1 B4, IfiS, I B6, 167, 188,189,1610, 1811,1612 
1813,1614, 16)5,1816,1817, 1618,1619, IH?0,1B?1 «1H7? 
1823,1624, 1625,1626, 18 27 , t 678 , 1 B79 , 1 B30, 1 H 31 , 1 R37 
1B33,1B34, 1B35 


A FORTRAN I I 1 


F 1LEDOOO 
FILE 1)08 1 
F1LED002 
F1LFD003 
i F 1L EDD04 
F 1 LFDH(14 
F ] LFD006 
F1LF0007 
F1LFP008 
FlLh[)IH)9 
F I LFD01 0 
F1LFDD11 
F1LF0012 
FlLFfiO l 3 
F1LFD014 
F1I.F0D1 5 
F1LFD01 A 
Fl LrDDl 7 
PlLEDOlfl 
E1LFD019 
E 1 L F DO 2 0 
E1LFDU2L 
F1LFD022 
F1LEDG73 
F 1 L F DO 2 4 
E 1LE0025 
E1LFD026 
E1LF0027 
Fl LrnD7H 
E l LFnn?9 
F1LED030 
F1LE0031 
E 1 L EDO 32 
F1LF0033 
El LFD034 
F 1LED035 
Fl LED036 
FlLFnr)37 
F! I. EDO 38 
F1LED039 
E 1 LE004D 
riLFDfl41 
F] I.ITDOA? 
F ILFD043 
f 1LED044 
f 1LFD04S 
Fl Ltl)04ft 
E 1LED047 
El LEnOAfl 
FRFD049 
F1LE0050 
F ILED051 
F1LED052 
F1LFD053 
F! LF0054 
E1LED055 
Fl L EDO 5 6 
E ILF 1)0 97 
Fl LFD05A 
F 1LFD059 
El LFDOAO 

F 1LFDDA1 
F1LF0062 
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Table VII-8. Source program listing of subroutine MESG (Link 1) 


* l.AIU : l 

CEImESG F1MFSG00 

SUBROUTINE MFSG F1MFSG01 

C DUMMY SUBROUTINE FOR m£$m GENERATOR FlMFSQn? 

RETURN MMFSIitrj 

t Nl) FI MFSG04 


Table VI1-9. Source program listing of subroutine MEST (Link 1) 


* LABEL 



GO TO 69 


F1MF5DA5 

CFIMFS 

Fl MFSOOD 

8 3 

JK = 0 


VlMI-SObb 

SUBROUTINE VEST 

r 1MC500I 


JN*2 


F1MFSD67 

C READS AND STORES MESH TOPOLOGY HAT A 

FI Ml SOO? 


GU 10 HV 


F1MFS068 

DIMENSION 1AI1],AAI1I, REM (131 ,NTl 10), DUMMY ( 5000 ) , IDtlM(5flOO| ,N(«) 

E1MFS0O3 

64 

JK=6 


FIMFSD69 

1 . P ( 24 > , UV 124) |X(B) ,YI6) ,2(H) , XDI 7 1 ,YIH / ]./D(7l , RlJMMY I ?7,9) 

FI MF50D4 


JN-3 


F1MFS070 

2,021 121 1 ,SU >,Gl< 1 ) 

FJMES0O5 


GO TO 69 


FIMFS071 

COMMON IA.AA 

FI Mrsnoo 

(J5 

JK = 7 


F 1HFS07? 

EQUIVALENCE ( 1 A , a a ) , ( AA f 9000). DUMMY) 

F1MFS0O7 


JNs4 


F 1 h F SD7 3 

ECU! VALENCE ( DUMMY, IDIJM,NT .RUMMY 1 , ( DUMMY 1 1 1) ,RFM| 

F1MES0P8 


GO TO 69 


F 1 W C S0?4 

EQUIVALENCE ( I A III , I N 1 , t 1 Al ? 1 , I HN ) , 1 I A 1 3 1 , IT ) , ( 1 A t 4 ) , I P 1 , ( 1 A< S 1 , 

F 1MFSI109 

66 

JK = 6 


ElMFSOTb 

1 1PR5) , ( i A ( (>] , 1TYPE ) , ( 1 A( 7) , I MAT ) , | T A ( fl ) , IUEG ) < (IA|9I,TNXI|1 TAIIO) 

, FI Ml SOU) 


JNs4 


F1MFS076 

2IH),( IAU1), IR] ,( 14(12} , IMMX) , ( IM13) , 1 MMV ) , 1 IA| 14) ,IMM? ] , t I A ( 1 5 ) 

iFlMFSALl 


GU TO H9 


F1MFS077 

31MF1 I , (1A<16>, fARE),( IA(17 1 ,N( l) >, C1AI25I.M] ,( IA[?M ,1TY| , I IAI27! 

.FIMFS012 

67 

JK = 10 


FI MFSf)7R 

4ISTRI .( 1A(2B),1ELT) , ( 1 AT 29 ) , 1 T F M) , M A ( 30 1 , 1 T 1 C 1. 1 I A < 3 1 ), IM C T), 

F 1MFS01 3 


JNa8 


F) MFS079 

5 ( 1 A ( 37 1 , I SUM). 1 1 A I 33 1 , 1 ND ) , 1 I A 1 34 ) « I MS ) ■ 1 IAl 36), IMS), ( 1 A ( 3 7 ) , 

FI MFS01 4 

69 

LC-L 


FIMESDHO 

MDROI ,( 1A(3R) , 10R01) ,( U(39l, ACEl 1 . ( I A ( 50) , J 1 ) , ( I A < 51) , J2 1 , 

F1MFS015 


LJK-LC*UK 


F 1 KFSOHt 

7< 1 A 1 52 l,J3l ,< 1A(53),J4>, II AI5'<],J5) , 1 I A | 55 I , J6 ) . M A 1 56 1 , J7 ) , ( 1 b ( 57 F 1 Mf-SOl 6 


LJKP=LJKf) 


Fl MFS(182 

R ) , J8 1 ,( 1A(5B), JTY ), (IAI59), IBB), I IAl 60), I BO 1 , ( I A ( 61 > , 1 1 0 ) , U A ( h?. > 

.FlMfSOl? 


IF (LJK-NFI) 7919.7919,7923 

F1MFS053 

9114), 1 I A 1631, 1I)T),( 1 A (64), IOY), ( 1 A (65), ITt) ,(1A(41 1 , I TAPI 

fimfsoir 

792 3 

n&E=nbE+20 


F1MFSD84 

EQUIVALENCE (IAI66) .ICAR ) , (1A(67) , IC1X) ♦ 1 lA(NB) , ICI Yl , ( IAI69) , 

F IMFSO 1 9 


NF I =NF I +20 


Fl VFS0R5 

LICIZ),(IA(70) ,ICFI l.( IA(71), IXXI . 4 1 A I 72 ) , 1 Y Y 1 , ( |A(73),TZZ), 

F1MFSOPO 


READ INPUI 

TAPF 5,791,(1 [)I(M{ 1) , 1 ~NRF , OF I ) 

FlMf SDH6 

2( 1A(74), 1 ICI ♦( IA(75)*10r.F) , 1 I A I7M , I ST) , 1 I A (77 J , IIS ) 

F)PF.S0?1 

7919 

GO rn ( 70 ,69, 68,67,66, 65, 64 ,63, 62, 61 J ,JK 

HMPS0R7 

3 t ( IA(7BI ■ 1GFM), UAI79), TERR), ( AAlflO) ,TD, (AAffll 1 ,DT), 1 AAI82J , OR J , 

F 1 MFS022 

61 

JM“J 10+M 


F1MFS04F 

4< AA( B3 > ,AL1 1 . 4AA( B4) , AL2I , ( AA( Rb ) ,Al 7) , ( AA (KN) ,D?T 1 , (AA M 07) ,P) , 

f 1MFS073 


GO TO 72 


FLNFS0K9 

5(44(131 ), (JV I, <AA| 1 55 ! , X ) , ( 4 A ( lfe3l ,Y| , (AA( 171) ,2 1 ,(AA( 179) ,XD), 

F 1 Mf S024 

62 

JM*J9+M 


FtMFSOVO 

6< AA(186),Yf)l ,(AA(193),ZI)I, IAA(3S1 1 ,Sl , ( AA 1 40 ) , 2GEM ) 

F1MFS075 


GO TO 72 


F1MFS091 

7, ( AA 1 42 ) , INP J , f AA(43 ) *1 PBK) « ( AA(44) , I PTN) , 1 AA ( 4b ) .CONS ) , 1 AA 146) , 1UF IMF 5026 

6J 

JMsJ8+M 


F1MES092 

8), 1 AAI47 J ,GI ) , [AA|4B),r,7| , ( AA { 49 ) ,C3I 

FTMFS027 


GO TO 72 


Fl MFS093 

EQUIVALENCE II A 1 349 ) , NT IC 1 . ( IAl 3*8 ) , 1 SOT > , 1 IA( 347) , I SHY) , ( JAI346) 

F 1MESD26 

64 

JN-J7+M 


E1MES094 

l.ISOZI ,( 14(3451, J9I ,( IA(344| ,J10), 1 I A ( 343 > . J PR S ) , ( 1 A <34? ) ,JSDY) 

FlMFSn?9 


GU 111 Y? 


M MFS095 

2. ( 1A(341 1 ,JSD2), 1 IA (340), JARE) , ( I A( 339 1 , J MMX ) , ( I A ( 338 1 , J MM Y 1 

F IMF S 030 

6b 

JM=J6+M 


F] PCS09A 

3 , ( 1 A ( 337 ) .JMMZI, ( I A ( 336 > , JNF I > , ( I A 1 335 ) , 1 T AS ) , 1 1AI334) .1021 

El MESO 31 


GO TD 72 


F1MFS097 

4,( |A (3331 ,IPR), IAA 032) ,OGY), |AA| 331), DG2 ) , { AA ( 330 1 , PRF5 1 

F1MC503 2 

6b 

JMaJ5+M 


F 1 M FS098 

5,IIA(329! ,IPIR| 

F1MFS033 


GO TO 72 


F1MES099 

IERtt-0 

F1MFS034 

i i 

JM* J4+M 


FlMFSien 

MaO 

F1MFS035 


KU TD 7? 


F IMF5I01 

MT=0 

F 1 MFS036 

6d 

JM-U3+M 


F1MFS102 

L^O 

F ] MF50 3T 


GO TO 72 


FIMFS103 

NRE*=- IS 

F 1MES036 

69 

JM-J2+M 


Fl MHSI 04 

NF I =0 

F1MFS039 


GU 10 7? 


F IMFS105 

79 LO L-L + l 

F1MFS040 

70 

JM-J1 fM 


Fl MFSI 06 

7911 IF (L-NFI )7912, 7912, 7913 

F1MFS04) 

12 

L-L+l 


F | MFR107 

7913 N BE =N &(:♦?() 

E l m£$Q42 


ljk=lc+jk 


F1MFS105 

NF1 sNFI+20 

F1MFS043 


1 A( JM ) =• I D(JH 1 L JK > 

F IMF S 109 

READ INPUT TAPE b , TV 1 , ( 1 1>(|M ( I | , I =NRF . NF I ) 

F IMES044 


.IKa.JK”l 


F 1 KFS 1 ID 

/VI FORMAT (7014) 

F1MFS04& 


IF ( JK I 7 H , 

78.7919 

r IMFS1 1 1 

7912 IF (inUM(L)l 7921,7910,7924 

F 1MFS046 

TP, 

DO 760D J=1 

.JN 

F 1 MFS 1 1 2 

7921 IF 1 L-NFI } 7914,7913,7913 

FI MF5D47 


JL=LJKP-J 


F IMPS 1 1 3 

7924 IF 1 I ERR ) 300,300,7925 

F 1MF5046 


IF (IDIJM(JL)) 300 , 300 , 7 MOO 

F 1 MFS 1 14 

7925 L=L-1 

E1MFS049 

7800 

CDNl INLJE 


F IMF hi 1 b 

MT--1 

F IMFSOSG 


IF IM-IT) 7930.799. 300 

FlMFSllfe 

1 ERR =0 

F1KFS051 

7930 

IF ( NF 1-20 1 

79L0, 7910, 793? 

F|M£S117 

7914 MsM+1 

F1ME505? 

793? 

Nl E=NF 1 -20 


c 1 MFS 1 ) 5 

MTsMT+L 

F1MFS053 


DU Ty40 1=1 

.20 

F IMF 51 1 9 

IF IMT-999) 7916,7915,300 

F 1MES054 


1 1-1+NIE 


f 1 MFSI ?0 

7915 IERR-1 

F1MFS055 

7940 

1 DU 9 ( I ) = | UrjM III) 

F ] MF S 1? L 

7916 IF IMT+I OLIM ( L ) ) 300,7917,300 

F 1 MF.SObft 


L=L-NIE 


F1MFSI ?2 

7917 ItLT=IDUMILf J )/100 

Ft MFS057 


NRE = 1 


F 1MFS1 fl 

IF ( I ELT^I 1 FLT-19) ) 7916,300,300 

f 1MES056 


NF1-2U 


F|MFS1?4 

791 ft GU TO (81 ,62.61,63, B4,B5, 84,65, B6,R7«B4,n5,R4, R5.R4.R5, 41.51} . IFLTF1MFS059 


GU T fl 7910 


F 1MF5175 

el JK-5 

FIMES060 

799 

I ERR=0 


41 MFSI ? 6 

JNa?. 

F 1 ME S Obi 

79 

RETURN 


F 1 M£5 } ?7 

GO TO H9 

F 9 MFS067 

300 

IERR-1 


F 1 MFSI ? B 

62 JS-6 

F) MF5063 


GD TO 79 


F] MFS IPS 

JN=2 

F IMFSC164 


END 


FlNFSt 30 


Table VII-10. Source program listing of subroutine OUTPT (Link 1) 


* LABEL 

cniuRT Fujpfono 

SORHOUTINF OUTPT FlOPIOOl 

C WRITES I N FORMAT I ll* 1 KElAlFU VIIH ROL AHE LL I NG FiriMlon7 

DIMENSION U( 1 ) . AA ( L > ,RFM| 13) ,NTI 1B> , DUMMY ( 5000 J ♦ l HUM l 4000 I ,R|R) FlHPT0fl3 
I tPI?< ),<.lV<24},X[8>,Y(BI,Z(n),Xn(7}, YD<7] , 2f)(?l , fi t'MHY ( ?7 , V ) F 1 CIH T OT>A 

?.n?H2ii,s n ) .in u j FiiiPTnob 

COMMON JA,AA f ! DPT0O6 

feDUl VALENCE (1A.AA),(AA< 9000 ). DUMMY ) FIOPTOO? 

EOIIIVALFMCF I DUMMY , 1 OlJM, NT. RUMMY I , I OMMftYI 1 1 ) » Rl : M I <. [OUTOOR 

F:DIJ l VALENCE nAll),lNl.(lACZJ,IHN) f nAI31,ITl,HA(A},|P»,UAI%l» FUIPTOO') 
HMRSI . ( IA(61 . I f YMF I , ( IAI7I, I MAT}. I IMP), I DFG ] , I I A ( 9 1 , I M y ) , | 1 A I] <>] ,F UlPTOlQ 
?IFI],{IA(M 1.161, (IAIl 2) * 1MMX ) . I | A < 1 3 } . I MMY ).HM14| t TMM7},[|A(15),FKlPT0U 
3IMF1 I , ( lAUf.) , I ARE 1 1 ( IA| 1 T ] ,M1 II , I Ml ?b ) .PM , I I A I ?h \ , ITY) , ( |A| ??} ,F 10PT012 
AISTRJ , I IA(?FJ , IFLTI ,( 1A(29) , I UM), UAHOI ,ITIC I tUM 31) . 1KFT) , FHJPin] 3 
91 I Af 321, ISOM] . { U(33),]N0l, (IAl 34] , IMS I , I I A I ?6), I ITR) , ( IM37 I, 1 UP I OJ 4 

AIOROI , ( IA(3R),irjHfH ] , I IA(39| ,ACFL I , ( I A { ‘>0 ) , j ] I , { I A I b I ) . .1? I , 1-10PT015 

t i Hi \i j , ,i .i > , i innii , •) 4 I , <14(64} , J5 ) , [ ] A l 561 , JAJ , I I A ( 561 , .17) , ( I A [47F MIPTOI* 
«) .-IS I . <IA<5ftl. JTYl, I I AIS9I ,IRfl>, II 6|M>] , I Kill . 11 A I 61 1 , I 101 , I I A ( 62) , Final'll 7 
9JI A) . UA (631, IOT] , < M ( 64)„IDV| , { IAl 66) , ET F I . ( IA( 41) , { TAP ) F H>p TO ] U 

toil] VALENCE (IAI66I ,ICAK), <IA| 67), ICTX1 . <1A<6A), ICfY) , ( (A<6<0. M DPT 01 4 
I icizi , i ia(70], icfii, IIAI71 1. 1 xx > . 1 1 a 1 7 ? ) , ivy). ha mi, 12?. i , f m«>rn?n 

2< IA(74>, HC] , < IA<76>, IDCr > ,(| A{ 7b) , ! ST] ,( IM 77 t . IIS) FlDPT(l?l 

3,IIA( IH I , IGFM ) , ( I A { 79 ) . f E R- ) - I A A [ HO ) , I F 1 . I A A< 8 I ) , OT I , ( A A ( «2 | , or, ) , F 1UPT022 
4( AA<&3 »,A1_1 1 . < AA(R4),AL2 I , ( AA(RS), Al.31 . I AAI HA) .1)21 I , < AA 1 10?) ,P) , Fl OPTt)?3 
•>(AA(131 |, I IV). ( AA( 166),X), I A * ( ! 63 J , Y I , ( A A 1 17L ) , 7 ) , < 4 A H 79 ) , X It ) . F1UHT024 


6CAA<lH&),Yr>) , < AA)]93I ,70) , I AM 561 ) ,S) .{AAf'.OI , 70FM) FlOPTOPb 

7.1 AA(4?) t IMP) . (AM 43 I , I VUG) . I A A ( 44 ) . iPFNI , ( AA (46 > , CONS ) . I A A 1 46 1 , I HF ) URT026 

fi) , IAAI a? I ,Gl> . IAAI4RI ,C.?» . IAAI*9I ,G?> FI OP TO 2 7 

FrilJl VALENCE { 1 a I 34V) ,NT 1C1, ( I At 34BI . I Sill 1 , ( I A (3*7 I * ISDY I . ( ! A I 346 J P I DPT D2B 
I , tstli ] , < IA( 34b J , J9) ,M A I 34 A] ,.M0| , I 1 A I 34 3 I , J PH 5 ) , I 1 M 347) ,.)SOY> FI dPin?9 
2,(14(3411 , JSDZ ). ( Uf 340), JAVF), I ! At 339 ),JmMX) . ( IM33R1 ,JM«Y| 

3. 1 I M 337 I tJMMZ ] , IJAI33A) ,JMFI I , ( 1A(33ro , ITAS I , UAI 3J4) , mil 
4,(14(3331 ,IPK ), 1 rtA(332},DGY). (AA (331 ),nr.2 ), [A4f 330] ,PRP SI 

E0U1 VALENCE I 1AI39) , ISKIIF) . (1 A f 3D 1 ) . I SUK ) 

HJIJ I VALENCE [ARIA 1 , 1 8RC ) . I AR I N , I li ANFl) 

DIMENSION JRMCiaOOO), IBAhmiaOOO), I S1K(S40) , I MAX 5401 , (MIN (540 I , 
lARlNd.40,15! 

E OU I VALENCE I DUMMY. AR IN I . ( DUMMY ( R l 00 > , ISIR) , ( DUMMY ( R6Mi ) , I MAX) , 

I ( DUMMY I SI) 60 I , I MIN) 

WHITE OUTPUT TAPF 6,16 

14 FORMAT I1NI.SH Nfl . , 6H I C T B . AM IMTN.4!-* TMAv. /.«V . 5IU L ARCi_ 

IN OCTAL// ) 


PKJPT030 

E ] OPTn 31 
F1IJVT032 
FI OPTO 33 
FlnVTt)14 
F10PT039 
F ll|PTD36 
FinPT03T 
F10PT03F 

F) PPTn39 
mud; vciMpr/w.n 

FiriPTP^i 


WRITE (IllTPUT TAPF 6,17, (I ,ISIR(I ) , IMINII I , 1MAXM ) , (ARINf I ,J I, J=1 ,7F10PT042 
L). 1=1, INI FI0PT043 

17 FORMAT <4Jb,SX,7f>l 3> F1IJPI044 

IF (ISUk-71 L70, 120,110 FlfiPT045 

110 WRITE OUTPUT TAPF 6, 1 6 , ( I , I S I » (I ) , I AR I N( I , J ) , J*A , ) 5 ) , t = 1 , I N ) FIOPT046 

IP format (1H0/I2I6.4JI,RG13) ) F10PT04( 

120 HEIIJHN F|nPl04S 

END FjnPT049 


1 18 
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Table Vll-ll. Source program listing of subroutine SRAT (Link 1) 


* LABEL 

cfisrt nsffTo™ 

^U°ROIIT|h£ SRAT ri SRTftO] 

C GENERATE* CONNECT iVf TY MATRIX A Nn nr <cq i fit «; TOPOLOGY OF R T 1 FF«YAT .Fl SPTPP? 

DIMFNR) QN J A( 1 ) »A A [ 1 ) «R rw l 111 ill I 1 n 1 , *Mimwx t 5 «fio>, , inijMi A<)On| ,N ( 81 fj SPTo"’ 
1 ,P( 24 )*UV( J 4 ] ,XI?) ,Y<M ,Z< R),Xn( 7 ) ,Y^<T 1 .RlJMMYl 77,9 ) C J SRTnCA 

2 , 021(21 >.sai *<51 <1 ] F 1 $RTOO$ 

COMMON I A , AA F 1 SPTP 06 

EQUIVALENCE UA.AAl.fAAt 9 £n')),'>iJMMY] ElSRTCn 7 

EQUIVALENCE (DUMMY, IDUH ,NT iRUMMY J , < 0 '>WMYt 1 5 1 ,REM) FTSRTOOB 

FQUlVALFNCr < IA (1 ) .INI * I IM 2 l *J! 3 N)*< I Al H ,Hl *< 1 MA) ,TP l, I TA( 5 ) , FlSRTfnR 
1 IPRS I »(U (6 ) . I TYPE 1 ■ t I a [ 7>1 I mat I.I 1 MM * II> p r,j * ( 1 A t O J . T NX > . ( I A I IT 1 .ElSPTOln 
?TH)«llA(]]]*IB] ,(JA(] 2 ) . 1 > - C Him . IMYY). HAlHl * l*Vl I * < I A I !%liF'SR r AH 

1 TMFT I ,M 4 | 161 . I AR* 1 * I I* 1 11 »*NM I) *( f *I? 5 I .^1 .( 2 fr> «MY 1 »M*I ? , l* r lSRTnl? 
4 |fTR> ,Ua< 78 > »l£Ll >.l I* l 29 ) ,IT«;M >*<1 A [’*! » 1 T!C 1 ,( 1*1 11 ) » 1 vcT I ♦ FISRTOT' 
5 [ 1 MV) , 1 SIJV) , I JAf ”] , 1 * 0 ) ifjA< 34 ).IWc) , [ n ruftl t ir«j, ,(H|n| , n^RTfllA 

6 TORO 1 , ( IAMB) , JOR 01 I « ( I A MR 1 , AC «■ L T , i I A C *0 l , Jl 1 * f I A f M 1 . J 7 > , r l SR**]* 

7(1 ACS?) |AC- 3 | ,JA I ♦( IM 5 AI, J 1 >* ( 1 M'-F) , *< TAT'VAt ,J 7 > ,lt A[ t Tc 1 5 R I -rtU 

0 ) , J 6 1 , < I A [ «B ( ,JTY) ♦ ( I A f *91 , J*B) t < ! MSP 1 1 1 POl ♦ ( I A f 61 1 , M T I , ( I AC f >2 1 * r 1 SR ’*! 7 

Rl I A I .If A ( 611 , IDT 1 *< |A< 64 ) i lf>Y). I I «i ( * MIM ,1 1 A < at), t r AP> FliRlOlP 

EQUIVALENCE ( I A 1 6 b) • iCAftj . UM 67 I , TCI X ) , i 1 A i 68 1 , 1 L 1 t J . (I f 4 ] * HaRiL '19 

1 ICUUC 1 A I TO) » 1 CFJ I ,1 1 A< 71 ) * 1 XX ) , M A ( 7 ? ) . IYY ) ♦ I I A I 71 1 . JZZ 1 . El 5 RTr 2 P 

?(IA( 74 )i|JC!*( 7 A |75 } .1 OFF! ♦ ( l 4 ( 76 >*I'T ft |lA| 77 ),IIST FISRTI 21 

3 , I IAI 7 SI . IGEm * I IAI 79 I, T£PR),< 4 A ( 801 , 1 *] » < AM Bl) .QTl . I AAI P^l ,D&! » -! SPTP 22 
4 { AAI 831 >AL 1 I. I AA| R 4 ),Al?l » < AA t R S 1 , AL 1 ) , I A A ( Afc ) * 0 ? 1 ) , ( A A < J ^7 ] * P | * c ] «R) 32 ’ 

5 I AAl 131 1 ,LVI . | A 4 T 1*5 )<X 1 * f AA( 187 I ,Y 1 « t A A M 7 1 ) ,2 ) , < A 4 | 1 T 9 ) , xR 1 p F* SR Tr 24 

bl AA| 186 ) ,Y 0 ) »l A A fl <: "n»Z''l * ( A 4 ( 3 * 1 I • [ A A ( 4 ^ 1 » AC- L M ) ^ ’ i>R 1 * 7 * 

7 , { AA ( A? ) » T N? J * ( A A I 43 ) t I PPG | I [ A A I 4 4 ) * I BFN ) , I » A I 4 A ) .CONS 1 *(44146) , 1 UF ] 6P T A2 6 

0 ) ♦ ( A A ( 47 ),C' 1 ]*(AA( 48 ) »G 2 > , IAA| 49 ) ,GM f 1 

fQUI V 4 LFNC r I T 4 ( 34 <Jl*NT IC>, t I M e *Tl ,(TM’ 47 ) , I**"'), [TAC'Ml «M RRYnjA 

1 . I FOZ I |(UI 34 ? 1 « JR) « MA ( 3441 -J 1 CJ »( S A I ’41 1 * JPRS) »(I*(»A?) , J 5 DY ) F I S«I 02 R 
2 *UAf 34 l) * JSOZ ) »( 14 04 01 ♦ JARE > * I 1 4 O 3 1 * ) * Ji*vx ) * t [ A ( 33 B I . F t SRTn 3 n 

3 , I T A 03 ?) » JMM 7 ? , ( I A [ 736 ) * J ) , ( I C ( a (« ) , ? T a< ) , M A ( 134 ) * IV ) Fl 9 RTAM 

4 * ( I A ( 33 3 ) ,IPR| *( 4 A( 372 t ♦ r >QY)*<AA( 7,^1 ) , 004 ) , 144(3301 *RW C S-I Fl^RlOl? 

OfWFNSION IDS 1251 ,CCCi ( 7 E 1 *JRS( 2 '-' > iCCCJC 2 SI Fl;.RTC 3 » 

EQUIVALENCE ( 14 ( 200 ) , IRS) ,( I 4 ( 225 ),JRi> i ( 4 A« 250 ) ,CCCI 1 « F 15 RTA 34 

H AA(? 75 nCCCjl E 15 RT 03 S 

FQU 1 VALENCE C 141351 (iSHuri *(TA( 7 fll 1 , l^llPl FlSRlOiF 

rOUIVALENCF ( A £ J I N , ! PPO ♦ < API V * I SAN^l F!f;DTri ^I 

OIwFNFil ON I" n C( 8 ^CF) , OAN*lCBf‘ rt '' I •t«lR(* 4 4 'l ,T v 4 vc 34 <'| . I v IN ( ^ 4 ^ 1 * c ! IR’OjI) 


1 Ap I N < 540 « 15 I 


r l r ,>?T03R 


FOU I VALENCE ( mjw(AY, Aft IN ) . ( ( ? t | » [ 9 1 R ) ♦ (QllVMY ( 464 ^) , I "A* i , f) RR t <t 4" 
l’| DU W «Y(918PI ,T«INI F1RPT041 

IF II5HUF-2) 25,25*23 EISR T 042 


F15RT043 
F1SRT044 
FlSRTr,45 
F1SRT046 
Fl SR THAT 
E1SPTO40 
Fl SPTT49 
F15RT05P 
F1SRT051 
r l SPT0S2 
F) SOTOS’ 
F I -SR TO 5 4 
X 1 SPT 655 
EISRT056 
F1SRT057 
r 1 5 R 70 SB 

111 FORMAT f' 0H ELEMENT* 14 «2X*2PH ) S IJN4C Cr PT A fe LE. Dl art^ARtO, ] F15RTf)5° 

ri 5 PT 061 


23 READ INPUT TAPE 5,100' 1 ISlRf 1 1 , iMAxn i , 1 = 1 *IM1 
100 FORMAT (2014) 

GO TO HOC 
75 DO 22 1 = 1 , IN 
?? T<IR(I)=I 

I <91 JR * t I N-l ) /76+1 
(Ml 71 l-l.IN 
00 71 J-1.I5UR 
71 A“1NI1«J»=0, 
r>0 99 *“ ! * 1 T 
CALL TORO 
00 90 I = 1 * I M 
L = IH-I + I 

IF INM .11 98 , 96,97 
98 CONTINUF 

WRITE OUTPUT TAPE 6 tU 1 iM 


GO TO 99 

07 T " c “l 

C THIS C *Rf, ( E 1 S R 6 1 A P ) IS I OMEDt at FL t l eiF P FA or > flSRT«6l, F15R61A0 

C EXPAND ELEMENT vERTFx VFCTOft'FY MULTI^LF ORr INCJT UNITS, IN 1 M AY 

DO 30 '' 1 = 1 ,HS r l$R 6 lA 3 

L = L+1 

1 K AX (L »=N( I I 
<N=IMI I l-ll*IOEG« 190 
DO 3C1 J-l , IDCG 
iBai=<N*J 

IF | I A I 1 ft 0L 1 - 1 OCCO ) ?«1 ,302,3''? 

3 «p xM=ioo nrij -inQi-’ieo 
T ^CL - I 90 
DO 3D3 IC=1,IN0 
I P0L=mOL + l 

IF ( IA| JoCL)«ICM| 3^3*744.3^3 
704 L“L*l 

IMMlLl-tK-11/IPfG+l 
303 CONTINUE 
301 CONTINUE 
’DO CONTINUE 
I M S“ 1 

00 3 C 6 l= 2 *L 
KN* I MAX ( | > 
r)(> ’07 J®1 » |vs 
IF I TM4X ( J I -<N I 
■ao 7 CONTINUF 
f M<=1MS+1 
| MAX ( i«S> =«LN 

c w IHIS 1 ?*^ IE1SR61C9I IS IMMEDIATELY «FFOR* CARD E I SRT 6? 

DO 95 1 = 1. IM? 

TBs I MAX ( t I 


F1SR6144 
E1SR61A3 
F1SR61A& 
Fl SR61A? 
F1SR61A8 
E1SR61A9 
F1SR61D0 
FlSRblEl 
F7 SRblfi? 
FT SR61B’ 
Fl 5R61B4 
PI SR6IP5 
F1SR61B6 
f 1SR61B7 
EISR81B8 
Fl 5R6169 
F1SRMC0 
FlSRftlCl 
p I SR61 C? 
F1SR61C3 
Fl SR61C4 
F1SR61CS 
PISRfelCfc 
T1SR61C7 
III SR61C8 
Fl SRblC9 
E1SRT062 
EISRlflb? 


•CN =0 

I IPC=I I 0-1 IMOFGMFO 
DO 971 J =1 , IDEG 
|POL=LIBO+J 

|F I I A I I POL 1 1 « 72 * 9711,971 1 
<? 7 !l CN=KN + 1 
971 CONTINUE 
977 DO 94 J =1 , 14**1 

IF KN-IOEG) 942 . 941,942 
94 ] IF ll-J) 95 , 947,94 
942 JB^IMAXU) 

KV =0 

L 1 p O= I JB- 1 ) * I DEG+ I BO 
00 961 L- 1 ,IDEG 
IBOL-Ll BO-yl 

IF C | 4 < I POL 1 ) 902 , 9811,9011 
9811 KM^XM+l 
90 ] CONTINUF 

|F I^v-inFG) 982 , 983*982 
983 IF IT-J) 94 * 982,94 
982 JJ*I JB- 1 ) / 36*1 
ACH=AB 1 NC I B, JJ ) 

JB I T - J 9 ” 16 * < JJ - 1 1 
CALL SEBIN ( ACH , JB I T ,11 
AP 1 NI I 3 , JJ I = ACM 

94 CONTINUE 

95 CONTINUE 
<19 CONTINUE 

CALL ARAN 
1100 IMAX 6 HIMAXM) 

IMAXB = 1 
KN =0 
LBAN 0=0 
LIPO =0 

00 2300 1-1, IN 

1 MAXG= 1 MAX ( I 1 + IOFC- 
TF ( 1 MAXB-IMAXN) 1 94 {>, 194 ft , 2 

i 94 p nQ 2 1 f )0 Ja J MAXB » T max N 

I POJ" I Q 0 + T DFG* ( I A|R(J |-11 
00 ?npr rsl.lOFG 

IP 0 K>I« 0 J+K 

IF (IA(|B0M1 2000*1950,1950 
1950 Hig^K.N+1 
7000 CONTINUE 
? 1 CO CONTINUE 
2105 I MAXN= I MAX I I + 1) 

I MAXQ * 1 MAX I 1 )♦ 1 
L 1 P 0 *[ I 51 R< 1 1-1 »*IDEC.*IP 0 

00 2 20 C J- 1,1 DEG 

1 POL = L I 80 + J 

IF ( I A< 1 *> 0 L M 21 If), 22 ^ 9, 2200 
2110 L^ANnoL^ANP*-! 

IBANniLB 4 NCf| = lMAxG-L p ANn-KN-*l 
2200 CONTINUE 
7300 CONTINUE 

1 FUM=LPANO 

IF ( INP - 1 1 012 , 811,811 

Bll WRITE OUTPUT TAPE 6,416 , ( 1 ♦ I B ANO 1 I 1 * T- 1 , I SUM ] 

415 FORMAT ( 1 H 1 ♦ 39 K , 40 HT OPOLOGY OF THE RF^uCFD STIFFNESS M 4 TR I tf ttft 1 7 E 1 SRTl 22 
1 X, 85 HNUM 0 EP OF ELEMENTS RETAINED AT F ACH ROW OF UPPFR AT T FCNESS MAE 1 SR 7 1 23 
2 TRIX (DIAGONAL 1 NCLUOE l> I / / I 10 I 4 X * 14 , 1 X * I 3 ) 1 ] P 1 SRTT 24 

$ 1 ? Uir-IIHI lllVrVA 

Pir,RTl 27 
F 1 SRT 12 B 
Fl SRT 129 
f lSR' r 13 f» 


F 1 SRT 064 
Fl SPTnb5 
FlSRTnbb 

F 15 PT 067 
P 1SRT , '6B 
F? SRT 069 
E1SRT070 
Fl SR Yf>71 
Fl SPTn72 
Fl 5RTQ73 
EJSRT074 
f 1SRT075 
e l SRT076 
F1SRT077 
F]SP T 07B 
c 1 5RTC79 
P15RTCfir> 
P 1SRT0R1 
FIERI 082 
Fl SRT081 
F1SRT084 
F1SRT085 
E15RT086 
E1SRT037 
E1SRY08B 
FISPT/'SP 
FIS9T099 
E 1 SR T 09 1 
nsRTpP? 
F] SRT093 
F1SRT094 
E L SR T095 
EISRT096 
F1SRT097 
F1SRT096 
ElSRTnPR 
ElSPTlno 
FlSftTlO] 

FlSRYn2 

FlSRTlC’ 
Fl SRT 104 
F1SRT10F 
flSPTine 
F1SRT107 
El SRT 100 
F1SRT109 
Fl SRTl 10 
F1SRTU1 
c 15R Tl 12 
F 1 SRT 1 1 1 
p] SRT l 14 
r, \ SPT1 15 
El SRTl 15 
eiSRTllT 
flSPTUR 
Fl SRT 1 1 9 
E1SRT120 
Fl SRT 121 


t a i run«i 

T A(jy l = | 5UM4] 

DO 416 1*2, muvl 
JUT* I U* I 

416 J4< IUI ) = !A( Il'I- 1 > + IFAND( l-l ) 


El SRT 131 
El SRT 1 32 
E 1 SRT 1 33 
F 1 SRT 1 34 
El SRT 1 36 
F1SRT1 36 

Fl SRTl 37 

E 1 SR 1 1 38 

F L SR y 1 39 
E1SRT14C 
E 1 SRT 14 ] 


I QRO m I A I IUI 1-1 
FORD - 0 * 

DO 417 1 - 1 , 1 SUM 
FXX= I BAND ( I ) 

417 FORD = FORD +F XX 
IST=TU+TSUM1 
FlST=tST 
FISU W = I SUM 

F ILFN=F l6T4FORO+-FTSUy+l . 

TDR 01 *I ORO^l 

WR I TF OUTPUT TAPP 6 » 6bb4 , FORO.F 1 LFN 
6664 FORMAT I IX ♦ 35HST I FFNESS MAT* I < PEQL'IRF^ ( DEC 1 «AL > , Fft, 0 . 19H F1SRT142 

lATORAGf. LOCAT IONS/ IX , 32HT07 AL COMvON LENGTH IS (DECIMAL 1 *F°*(1* 19HE1SRT143 
? STORAGE LOCATIONS! E1SPT144 

IF ( 190 10.-FI LEN+FISUMJ 419,4?0»4?0 E1SRT145 

ii<) *j'K1tF OUTPUT TAPE 6,4211 EISR7I46 

4211 FORMAT < 6X , 83HWARNI NO* LESS THAN 1?750 ^Ff.I*AL LOCATION 7S AVT L SR T 1 47 
1AILAPLE FOR THE N P XT LINK PROGR AVS ./ SX .47HI HOUGH It m|v RF .Sill C 5 TAf 1 SR T 1 48 
2L, FXFCUT ION CONTINU c S. ) r!*PTl*9 

470 TF (1NP-I1 913,814,014 El SRT 150 

014 DD 471 1-1*1 SUM] 

IIJI»IU+| t 1 SRT 1 5 ? 

421 1 BANDI II*! A( IUM 

WRTTE OUTPUT TAPE 6 , 422 , ( 1*1 BAND III , ! = 1 * 1 SU^l ) F 1 SRT 154 

422 FORMAT I IH 1 • 30 X » 62 HC 0 UN T OF MAIN DIAGONAL ELEMENTS OF ROW LISTED SE 1 SPT 155 

1 TIFFNESS MATPIX//I 10 ( 2 X,] 4 * 1 x,I 5 ! > J E 1 SRT 156 

Bl 3 RETURN E 1 SRT 157 

FNO 


E1SRT158 
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Table VII-12. Source program listing of 
subroutine TABL (Link 1) 


Table VIM 4. Source program listing of 
subroutine TOPO (Link 1) 


SUBROUTINE TAfU. 

PRINTS FIRST OUTPUT ITEM 


FlTRLfinO 
FLTRltUn 
F L TRLOD2 


DIMENSION lid ) f AMI I ,RFM( 13) ,N*H I 0 I , DUMMY [ 5000 > . lDUK(6fiO0) ,N[fl) FI I ML 003 
1,P12*I ,UVf2*J,X|8 I, Y(6] ,Z(fl |.Xn|7| , Y0( 7 ) , 2 Of 7 >, RUMMY f 27,9) FI TBI 00* 

?,D2LI?1I,.S(1).GI < I) FIT PLODS 

ClJMMON 1 A • A A hlTRLOO* 

EQUIVALENCE ( 1 A . A A J , f A A ( 9DD0), DUMMY) F 1 TRL007 

EQUIVALENCE I DUMMY, I DlJM, NT , RLJMMY ) , [DUMMY [ 1 1 | , RFM) I- ! TRI.ODB 

EQUIVALENCE nAfl),lN),<lA<2),JBN),l!A<3),ITl,riA(*),LP).nM51,. F] TP L 009 
1 JPRS), 1 IM6I, ITTPEl ,f IA(7] , JMAT I , ( lAf HI , [DEG I .MAIN), INXI, MAI U)>.ni7RL01O 
21HI ,( IAH t ) , 1BJ . t l A ( 1 2 ) ,1 MMX ] , II A [ 1 3 I . 1 MMY ) . ( I A (1 * ) . I MMZ ) . ( I A ( 1 5 ) , F 1 TftLOl 1 
31 Mr I ) , ( IAI u>l * I ARE I ,( IA| 171 ,M1 ,M), l!4(?(i), I TY I ♦ < I A(? 71 ,F IT BLO 1 2 

*1 STIOf It AI2B) « IFITI •< IA(24>« ITFfllt ( IM30] < 1T1C) •( IA<31 > tlMPT}, E1TRL0I3 

SI I A I 3 2 I , I SUM ) . (|A(33>, I NO I, UM3M, I NS I , HA<3fr>, I OS ).HM 37 I . F 1 TRIOI* 

6(UR|>) , I IAI3P>. IQKDl). t 1A( J9 I , AL.FL ) . II A I 50 ) , .J1 ) . < I A < 51 ) , .12 I , FI Thl.01 5 

TnAI52l,J3),n<US3liJ*l.<IA(5*),J5I.IIA(59)'J6>,<TA<56),J7>,nA<57F)TBL0l6 
R| .JH) , I IAI5PI ,JTYI , I TAI501 ,IPtt) , ( |A<*0>. IBO» ,< I A(fil) , HIT] , I I A I 6? ) , E l TBL01 7 

VI TAJ t < IftT] . ( M(64) . 10V). { M(65 |, | TFI *( IA{41 | , ITAP) Film (11 H 

FOIII VALENCE I I A 1 66 I ♦ I CAR | , (I A < 67 ) , ! C t* ) . II A [ 6* I , 3 C I i ) , < I A ( 69 1 , F I 1 BLOTS 

1 1 C I Z J ♦ M A 1 70 I , ICFI) , I IAI 71 I . I XX I. ( 1AI72I , IYYI, I 1A (73). Ml I . F 1TRL020 

2fIAl?4),JICL,(IAl751« I IJI-f- | , I IAI7AI , 1 SI ), IJ A I 77 I . I IS! El TBL021 

3, ( !A«7tn, I GEM), ( [A(?yj t IE!C< )* I Art I 801 , TF J , \ AA(8I ) , DT J , ( AA ( B2 > . DG ) , E1TBL022 
*[AA(83),AL1 ), I AA{«*| . AL2l,< ftAlflil ,«L3) . I Art I Aft) ,1121 I , 1 HAI 107>,PJ , E1TRL023 
SfAA (131 1 tUVI, (AAI 1551 ,X},{AA U^3) ,YJ , [AA[ 171 )*2I ,(AA( I7VI ,xril , FI T BLO? A 

6< AAU66I , YD). I AA| 1931 . ZfJI.t AAI 3 5 1 ).Sl « I AA<40) ,7 OF MI F1TA1025 

7, I AAl*?l . I NP I . ( AAl*3J . I PBG ) , f A A [ 4* I , I PEN I , I A A I 45 ) .CDNS! - |AA(*6>, |UFlTRLO?b 
8 J , I AAI4Y) .(III , 1 AAI *B> ,G2J , f AA [49 I ,G3> F1TRIU27 

EQUIVALENCE C I A (3*9 1 .NT 1C ) . ( TA(3*R I . I SOT ) P MAI3*7) a IS0 v )«l I A I 346 I F1TRL02R 

l* ISIMJ* IIAf 345I.J9), HAfSAAl .J10| , < IA(3*3),JPRS> T I HI 3*2 ] ,.lSoy| FlIHt.O?? 
?, HA 13*1 } , JSOZ > . I l A[3*0l * JARF) ,{] A{ 3?y] ' JMMX ) . f I A [ 33 H ) ,.JMMY> FI TRLD30 

3 , I ! A f 3 37 } » JMMZ ) ♦ < I A ( 33b I , JNE ] I , ( I A I 335 ), ! TAS ) , I I A ( 33* ) , I 07 ) P1TBL03I 

4, I I A 13 33} ,1PR] , ( AM 3371 .DRY I , I AAI 331 ) . DO 7 I , < AA ( 330 I .PRES I F1TPL032 

5,(lA[329],(HIR),t |A(32B|. TCQR) . < I A ( 327 ) , I BUM , I I A I 326) , I MFS I F1THLD33 

01 MENS ION HI ERR (SO) FI TRIOS* 

EUU1VAI.FNCE ( I A ( 200 I ♦ I RFRR ) F1PPI035 

DIMENSION tS IR ( 5*0) E1TRL036 

EOI/IVALENCF HlUMMYlFlOOIf I5IRI F1TBL037 

EQUIVALENCE ( I A ( 35 ) , I SHIJF ) F1TRL03R 

WRITE OIITPIH TAPF fi,lOOI,(RFM( 11,1-1*1*1 F1TBL039 

1UU1 FUKMAI P 1H1 , 3f,X,?5HLlNEAR ELASTICITY PRCIRLFM/// 2X.l*Aft) F 1 TBL0*0 

WRITE OUTPUT TAPE A , 35 1 , I N, t T, I DER . I TYP E , I GEM, I S T K , I H , I K, 1 BN. I P E1TRL0*L 
1 ♦ IPRS, IMAT.NUC E1TPL0*2 

3>1 FORMAT 1//2 2H TOTAL NUMBER 01 5 » 1 R < « I 5/ 32H TOTAL NtJMRFR OF F I NF IT BLO* 3 

1 I TE ELEMENTS. BX, IS/?VH OrOPTFS OF FRFEDOM AT A NODE . 11 X T I B/ 1 ?H ITYFlIRLO** 

2PE VALUF.2BX, IS. 10X,SRH0 FUR ISOTROPIC, 1 FOR OKTHIMRIIPlC, ? FT1R flF 1 TP.LO* 5 
3FNFRAL MATERIAt/llH I GEM V AHJF .29X , I 5 . 1 OX , AUHll FOR I FOR 3-0 I ME 1 TRL 0*6 

AFNSIONAL STRI/CTURES/UK ISTR VAIJJF , ?9X . 1 S , 1 OX , 3AI 1 1 FOR PLANE S TP A I F 1 TPLOA? 
5N CASE, 0 OTHFRWI SE/*IH MAXIMUM NUMBER [.IF CONTACTS IN AN FLFMpNT , I F S TBLO*H 
W/33H CONTACT NUMBER INf-UJOIMfi DIJMM1 E S , \ 1 ? 1 1 OH IBM VALUE , 30X ,[ S , L OF ! 1 Rl 0*9 
7X,65HNUMBEK OF SllPKFSSFI) ITEGRPiES OF FR FFIlOM IF NO MULTIPLE CUNNEC I fc l I B1. OSO 
SI0N.S/3SH TOTAL NUMBER OF CONCENTRATED LOADS , SX. I 57 1 SF 1 PR^SSURF TYPF17BL05L 
9ES.75X . 1 S/15H MATERIAL T YP E$ , ?5X , I 5/ I 6 h THtCKNFSS TYPFS.?*X, IS] F1TRL0S2 
WKIlt LIUT PUT TAPE 6,352, ISUT.ISOY. ISU7. IARF, IMMX, JMMY. [MM7, IMF! ^lTPIOSS 
\ , IMX.TNP, ISUUF-, ICtPR F1TPIL05* 

J>2 FORMAT I25h TFMPERAIURF CHANGE TYPE S , 1 5X . I S 73SH TEMPERATURE GRAO I Fl" 1 T P.LOSS 
1MT TYPES ALONG Y.5X,[S73SH TEMPERATURE GRADIENT TYPES ALONG L , SX . I F I TPL0S6 
25/ i 1 H AKFA TYP FS. 29X t 1 5/23H TORSION CONSTANT 1 YPFS , 1 7X , I S f? f.H Y MO* l TBL0S7 
3MEN1 OF INERTIA T YPF 5 , I * X , I S/26H 2 Mfif'FNT OF I N f R T ] A T YPFS . I * X , I S/F ] T^LOSR 
*3*7H NUMHFR OF- ANGLFS FIXING PRINCIPAL AXFS.Ib/lOU 1 MX VA(. UF , 30K, I Sfl TBLOS V 
5,10X t 67HNimBE« OF THF LINK FROM WHICH P T TIJRM-T n-BEGI NN ] NO IS MADF/F L TBL06U 
MOH IMP VALUF . 3DX, 15. LOX.StlHO MINIMUM PRINT, l PARTIAL PRINT, ? COMTRinM 
?MPLF;TE PRINT/I2H ISHIIF V AL UF . 7KX . T 5 . 1 OX , A3H0 Nfl RFl. A BELL I MG . I kFLFl TBI 062 
RAREL, 2 OR 3 READ CAROS FOR RELABELLING /II* IC.UK V A| UF : . ? VX , I S . ] OXF If BL063 
y,52Mf» READ CARDS, 1 CALL SUBROUTINE C.URG FOR C flORO I NATF S ) FIT BLOB* 

WRITE OUTPUT TAPE h ♦ 3352, f Kuri, I f-FS , i P [ v . If AP , r TAS . A Cfl, , G | . (]? , G3 F1TPLD65 
3352 FUKMAT [ 1 1 H IRON V AUlF , 2 1 / X , i St 1 »X , fttlflD R F AD CAR|>$. I CALL 51 IR ROUT ) F 1 f B| 06A 
lA'E BUNG FOR EUlur+OARY C0W1 II M1M5/1 IH IMFS VALUF, 29X.J5, 1UX , S*Hn PFAI1TPL067 
20 CARDS, 1 CALL SDBKMOllNr MFSG FOR MfSH TnPlM.OCY /3«H IPiR VAI.UF F F I T RLO 6B 
30R SHELL LOCAL NOTIAL AXES , 1 7 . I OX , 5*H0 ASSUME 7FHD, ] COMPUTE AS ^RMTPlObV 
* I NC ) PAL , ? R F AD AS 1 NPUT / 2 AH CHAIN PROGRAM TAPE Ml IMP ER * i *X , I S/ ?DH F1TBL070 
5SCRATCH TAPE NIJMB PR .POX, I 5. iOX, 5 OHO (IR - 00 NOT COMPUTE PF S I DUALS . E M HI D7 1 
h OTHERWISE CfJMHOTF/ 23H ACCFI.LH AT [ ON*ONl T MASS.l 7X,FlQ.*/3*H 0 I R^C F 1 T RLfi 72 
YTinw COSINES OF ACC H. PR AT JUlY , F 1 6, 6 « 3X , E 1 0 * 6 . HX , F 1 0 . 5// / / 1 F l TBL 07 3 

RETURN F1TBL07* 

fMD F1TPL075 


Table VII-13. Source program listing of 
subroutine TICK (Link 1) 


* FAP 

COUNT 25 

LBI TICK 

ENTRY TICK 

TICR NZT ONCE 

TRA FIRST 

C*L 5 

MIR INITL 

Al S 18 

SLH^ l f * 

TRA 2,* 

FIRST STL ONCE 

CAL 5 

SI W IMJ n 

SI/* 1,4 

TRA 2,* 

ONCt PZE 

1N1TI RZF 

END 


TICKOOO 
TICK001 
T 1CKOO? 
TICK0D3 

T ICKDO* 
TICK0O5 
TICKOOb 
TICK007 
I ICKDnp 
TICKOOV 
TICKOIO 
T I CM! I 1 
T J CKO 12 
T ICKCI3 
T [CK014 
T1CK015 
TICMJI b 
T I CKC 1 7 
T ! CKO 1 R 


SIJRRUUT1NE TIIPO El TUPOOl 

PREPARE S ELEMENT PROPERTIES AMO CHFCKS FIIOPOO^ 

O I M E NS ION UUIHJI L),RFM( 13I.NI (ID) , DUMMY [ 5000 ) , IDUHI 50001 ,NIH) Fl IIIPO 03 

1 , P I 2* ) . UV ( 2* I , X I 9 ) , Y ( B J ,7 I R ) , XO ( 7 ) , YD{ 7 ) , ZT>< 7 ), RUMMY I 27. 9 } FITOpnn* 

2, D2l (21 liSH I.til ( 1 ) f-lTrjpooS 

COMMON IA.AA E1T0P006 

FUU1VAI ENCE : I IA.AA). (AA( 9000 ), DUMMY I E1TUP007 

FUlfT VALENCE I DUMMY , I HUM , NT, RUMM Y J t ( DUMMY f 11 I, REM} E ! JOPOOS 

EQUIVALENCE (lAm,lNl,rlA(2],IRN},MA(3},IT),IIA[*),]PI,(IA(5I. EITCIPOOV 

I IPRSI , I IAIfe I , I JYPF I , ( IAI 7 ) , I NAT ) , I I Af H) . I DEG I .(IACNI,1NX|,UA(1Q} T F LTOPQIO 
2IHJ , [ I AU 1) , I R I . ( IAU2) , I MMX 1 , < I AC 1 31 , I MMY) ,(IA(1 *] t 1MM2}t(IA(] 5J,F] TUPflU 
3 t MEi ) , IT A( 1M , I AR£ | , ( I A| 17 I ,N ( L ) I , I I A( 25 ) ,M}. | I A I 26] , 1 TY| , I I A(?7) .f ITDP01 2 
A1STR | t(lM2RI'IELTl.(lA<?V)*ITEM},mi30!'!TlCl.{lA(3n .IMETI, E 1 TDP 013 

M IAI 32}, 1 SUM) ,f JA(33), [ ND I . I 1 A I 3* ) , I MS I , < I A ( 3b ) , I OS 1 , ( I A ( 37 ) , FITCP01* 

blORD). I IAI3BI , 1 OK 1)1 I , ( I A ( 39 } . ACFL ) , ( I A ( 50 ) , J 1 1 . ( I A I 51) . .1? ) ♦ El TOPO 15 

711 AI52I ,J3I,{ IAI53),J4), ( 1AI5*I. J5) . I I A I 551 *JM, HA I 5b), J T J .1 I A ( 57fc ) TOPOT 6 
H},JH), I I AI5BI ,JTY), I I A t&9 I * I KB ) • M A I 60 J « IDO) ,(Ifr(61 I , I I 0 1 , ( i A ( 62 ) , tl HlPCll 7 
VI I A I , (1A ( 63) T IDT* , ( IAI f>4) . I IJY I , I IAI 65}, HE I ,( |A( *1 ) , I TAP) E I TIIP018 

EQUIVALENCE ( I A t 6ft ) , I C AR ) , [ I A I 67 P . 1C [ X I , ( I A ( bfl) , I C T Y ) , I I A [ 69 I , Fl TOP019 

1 ICJZ } , ( I Af 70) . ICF I ), f| A(71), IXX) , ( 1A(72 I, 1 YY) , t J ft 1731 , IZZ), F1TDP020 

?I IA(74> ,IIC1. I1M75), I OFF), I I A 1 7 6 1 , t $ T I . (1 A f 77 ) , I I S I E1TCP02I 

3, II A I 78 } , IGFM I , I I A ( 79 ) , I ERR I , ( A A I BO 1 , I F I , ( A A I R] J , UT ) , I A A I 82 ) , DC ) , E t TIJP022 

*[ AAffl3 I , All ] , l A A [8* ) .AL2I , I A A ( 115 I ,AL3) , I Aft { 8*1 , D21 ) , I A A II D7 ) ,P ) . El TCIP023 
5fAA(131 J ,UV], (AA( 155I.XI, IAA[ I61),YJ , IAAI171I ,ZJ , [AAt 17V) , XII) , FITTIPO?* 
6IAA I 1861 ,YD). IAAM93I ,ZD),[AAf 351 I , S ) , { A A { 40 I . ZGFM ) F1TDP025 

7, I AAI *2 } , IMP) . I AA T 43 I , I PBGJ , [ AA[ 44) , I PEN! , < A A ( *5 ) ,CONS ) . I Aft | 4ft | , JUE 1TUP026 
81 , (AA<*7) .til ) , I A A I 48 I ,G2) ,[AA( 49 ) , G3 ) Fl T0PO27 

EQUIVALFNCE I I A I 3*9 ) ,NT 1 1 } , I I A ( 3AB ) . I SOT I , M A < 3*7 J , ISDY > , I UI346) M TflPOZG 

1 , I SOZ) ♦ II A[ 3*51 , J9I . ( I At 3*41 . .1 ] I) ) . I I A ( 3* 3 1 , J PRS 1 , I I A f 3*2 ) .JSOY) E1TDP029 

2, UA{341 1 , JSD2 I , ( IAI 3*0 ) , JAKE I , I I A< 339) , J MM X I , ( I A t 338 I ,.JMMY | F LTOP03Q 

3, HA 1337 ) ,.JMMZ I , I I A < 336} .JMFJ ),([*( 335) , I TAS ) . H ft ( 33*1 , IDZ I El T0PO3} 

*,t IAfl33}, I PR ), IAA(332l ,OGY ), I A A 1331 J , QGZ } , ( AA < 330 I , PRES I El mP0 32 


J I: LT^U 
ITEM^O 
I T I C=U 

I me r=u 
DO ID 1=1,6 
N( I } = 0 
K= 1+335 
10 i A f K ) =0 

jM-gi+H 

I ELT- IA( JM) /100 
I NET- |A ( JM )— l DO* I FL I 
JM^J2+M 

IF HtLl-4) LOO. 100,450 
UlO IF flELT-3) 200,300,200 
2U0 JARF= I A f JM) / 1 00 

1 TEM= I A ( JM ) -1 DO*. I ARf 
GO TO 400 

300 .1 P R S - I A ( JM ) / 1 00 

JSDZ= J A < JM)-100*JPRS 
*00 IF I IFLT-3) 600,800.600 
*50 IF tIFLT-10) *70.4/0,500 
*70 IF IIELT-B) 500.500,480 
*«0 JPRS-IA I JM] /I 00 

I T EM» 1 A I JM } -1 00* JPR S 
L= 1 

CD TD 1DOO 

50U I T I C“ I A I JNI/lOO 

I TEN= I A [ JM 1 - L OU* I T ! C 
JM= J 3+M 

JSDZ=I At JM 1/ IOD 
JPK5=IA< JM)-100*JSDZ 
I. =2 

Gfl TLT 1000 
600 JM^J3+M 

J PRS = 1 A ( JM ) 

L = 2 

IF ILELT-2) 1000.700,700 
7UU JM=J4+M 

JMMZ=1A(JM)/100 
J SOY — 1 A ( JM) -100*JMM/ 

L- 3 

IF I1FLT-4) 1000,900,1000 
8l)U JM=J3 + M 

JMMX=JA| JMI/100 
JHMY=IA I JM) -! flO*.IMMX 
L = 2 

IF fir.LT-4| 1000,700,1000 
900 JM-J5+M 

J$I)Z = 1AI JNI/LOO 
JMFI = I A [ JM I -I DO* J SOZ 
jM=jism 
JMRS=i ft I.IM I 
L =* 

loon 1=1 

Gil TO U 100, 1200, 13U0, L40DJ ,L 
lion jm=j 3 +m 

Nf I ) = I A f JM I 
1 = 1 +1 

1200 ,JN=J4+M 

N f I ) - | A ( JM } 

1=1 + 1 

lJUO JM= J 5+M 

N( 1 ) = EA(JM) 

I + 1 + 1 
JM= J6+M 
Nf ] ) - ] A f JM1 
1 = 1 + 1 

1*00 JM.=J7+M 

N I I 7 — I A ( JM ) 

1= l + J 


Fl TDP033 
El TUP034 
El TDP035 
F iTMPmb 
EITDP037 
e 1 TI1P038 
Fl 1 UPO 39 
F1TDP040 
FIT DPO*l 
F 1 TDP0A2 
FI T0P043 
E 1 TOPO** 
F1TDP045 
Fl T[1P0*6 
FL U1P047 
Fl T DPO*B 
f 1TOP049 
El T [JH(J 50 
Fl IDP05I 
Fl TUPn5? 
Fl IDP051 
Fl TC1P05* 
E1T0P055 
El THP056 
F 1 TnP057 
Fl TTIPD58 
Fl TUP059 
F1TDP060 
F 1 TOPObl 
ELT0P062 

e i tup 06 3 

Fl TIIP06* 
F1TDP065 
Fl THP066 
F 1 TT1P067 
ELTUP068 
e 1 Tiipnb9 
Fl TDPOTO 
F1T0P07L 
Fl T [IPO 72 
EITDP073 
Fl 1 MPO 7 * 

n 1 itp 07 5 

Fl TOPDTb 
E l TDP077 
F 1 TtlPD ?8 
Fl mPD79 
FlTT»P08n 
FlTflPOB) 
F1TOP0B2 
F 1TT1P0K3 
E1TCIP0H* 
FIT(TPI)85 
Fl TDP0B6 
MT/JP067 
FlTUPnftfl 
F1TDP089 
Fl 1I1P09U 
F I TUP091 
F 1 Tf)P092 
F 1TDP093 
Fl TDP09* 
E 1 H1PD95 
ri Tttpfi9b 
F 1 TOP097 
F I TTiPflOH 
M1UPD99 
El 1 DPI 00 
Fl TUP! n] 
HTDP102 


N( I 1 = lA(.JM) 
1 = T + l 
JM= J9+M 


FlTFIPin* 
Fnnpins 
h 1 rnpjn/, 
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Table VIM 4 (contd) 


Table VIMS, Source program listing of main program of 
Link 2 (generation link) 


Eunpt n / 

ElTUPlOfl 
FI TOPI 09 
I- 1T0P 110 
El 1CJP1 1 L 
F 1 T TIP 1 1 7 
F1TTIP1 13 

fiirnPiH. 

F 1 T 0 P 115 
M TOP 1 1 6 
El TOPI I 7 
FlTOPll 8 
F 1 TOPI I 9 

IKY INFORMATION, 1=1 TOPI 20 

eitopizi 

ei TOP 122 
eiTtipj ?3 
f : lTtlpl ?4 
FI TUP 125 
F 1 T 0 P 1 ?f> 
F 1 TOP 127 
F 1 TOP 128 
FL 7 DP 129 
til OP 130 
FI TOPI M 
F 1 TOPI 32 
FI T LIP 1 33 
FI TOPI 34 
F 1 TOP 1 35 
F 1 TOPI 36 
E l TOP 1 3 ? 
F 1 TOPI 3 B 
El TOP ] 39 
F 1 TOPI 40 
El TOPI 41 
F l TOP 142 
FI TOPI 43 
F 1 U 1 P 144 
FI TOP! 45 
FI TDP 146 
FI TOPI 47 
FI TOP 148 
FI TOPI 49 
F 1 TOP 1 50 
FI T 11 P 1 51 
El TOP 152 
F 1 TTIP 153 
FI TOP 184 

El TOPI 55 
F 1 TOP 156 
El TflPl 57 
F 11 UP 158 


NDX=M 0 X +1 

Wlo If I IJMFI + 1 l*f .IMF J-lMM -1 I) 1720 , 1711,1711 
1 Ml jMt I - I Mp I 
jrt- .)5 + M 
L=I A I JMJ/100 
| A ( JM> = 100 **L+JMr I 
nox= nox+i 

W 20 If INDX) 2000 , 2000 . 1 ft Oil 
1 UOO WK 1 IF OUTPUT TAPE ft,l ,M. NDX 

1 FORMAT I 1 lH JN EX EMFNT . T 5 ► 2X , 1H, , I 5 ,? X , 95HPROPFPTY T 

|tS_OUTS!OE THr pf? tSCRI3rD RANGE, type no 18 
z> T *• L F I 
2000 RETURN 
LNU 


* CHAIN (?,2) 

* LABEL 
CM. AS? 

C MAIN PROGRAM FOR GENERATION LINK 

C GENERA lt£ GOVERNING F0UA7H1NS 

n ! MENS I UN 1 A [ 1 ) ,AA( 1 1 » 5 I 1 f.NUH . 02 H 21 ) ,0331 3 . 3 ) t r 2 ? I 3 , 31 
1 ,PI 24 I ,UVIZ 4 ),XI*I . Y C B 1 ,2181 tX 0 ( 7 ) .VIM?) ,Zri( 7 ),GI (1 ) 
COMMON I A, A A 


FLAS?nnO 
FI. A SPOfll 

f-laszoo? 

c L A 570 l )3 
FLAS2D04 
FL 4 S 2005 


EQUIVALENCE ( I A, A A ) , 11 ) 21 , 1)3 31 ,< 021(10 I , 1 - 721,(021 I 191 ,F) , (0711 70 I ,G 1 ELAS 200 A 
EUIJIVALEMCF (I A I U , IN I , U Al 7 I , I KN ),(l A { 3 ) . IT! , ( 1 A( 41 , IP) , ( I A I 5 ) , FI. AS? ON? 

II PR SI t 1 1 A ( h 1 . I TYPE 1 ,f I A ( 7 } , IMA 1 1 , 11 A 1 8 ) , IllEGl, [ ] A [ 9 > * I NX 1 , II A ( 1 ( 1 ) , F|_AS?OOB 
21 HI ♦ I I A C 1 I |, 1 B>,<IAU 21 , IMrtX ) , { I AT 131 , I MPY] , < I A l 1 4 I , 1 MM/ ) , (I A < 1 8 > ,Fl. iSZOOV 
3 IMF 1 ) , ( 1 A< 1 /, ) , I ARE ), II A I 17 I ,«ll ) ) , (I A I 251 ,M 1 ,< ! A I 24 ) ♦ ITY 1 , I I A 1 7 7 I » FLA S?f'H % 

4 3 STR I . < !A< 28 ) , 1 ELT 1 , f I At 29 ) , I TEH) , t I A 1 30 I , T 1 I C > , M 4 ( 31 ) * I MF T I , FI.AS 201 I 

5 ( I A ( 37 I , I SUM), I 1 A( 33 I , INO) . I )M 341 , 1 MS) , I 1 AI 3 ft) . lllSiI, I IA 13 Y) . ELAS 701 ? 

6 IOROI . (I Al 3 fi) , I 0 RU 1 ) , t I M 39 1 ,ACH. l«IIA( 5 Q),Jl).ITA 45 ll,J?), FL AS 2013 

7 UA| 52 I , J 3 ) , ( IAt 53 ), J 4 ), ( I A| 541 , , 15 ) . M AI 85 ) ,JftJ , < IA( 5 M .,171 , l IA< 57 FLAS? 0 J 4 

A), J«| ,< IAL 5 H) T.MYl.nAI 59 ), [BBI, llAtfetn t Ifini, I jA(tn, uni . 1 IA(H 21 , 81.452015 
Vi I A ) , ( 1 A| 63 ) , 10 T ) , n Al ftA 1 , IDY) ,( IAIftS) , 1 TF) .1 1 .M 41 ), ITAP 1 f LASPOlft 

EQUIVALENCE < 14 ( 661 , ICAR l,fI 4 J 67 >,lClXl,UAIftH),lC]Y>,IIA(A 9 l, R.AS 2017 

llCI 2 l,(!A< 70 ),ICrn,(IA( 7 ll,lXX),nAI 72 l,IYY),IIA 173 l.l 72 )* !-LAS?»UR 

7 ( I A ( 74 ) , I ICI, ( I 4 < 7 $),lHEf ). UA( 76 ), IST 1 , ( 1 * 1771 , I IS) PLAS 2019 

3 , | IA I 7 RJ , I GEM I . < 1 Af 79 ) , I ERR) , f AA < HO) i I F I , ( AAi PU ,I)T ) , I AAI B 2 I ,flG) , EL 4 S 20?0 

4 f AA(H 3 ) ,AL 1 ),tAA( 84 ),AL 2 l ,< AMR 5 ) ,AL 3 I , IAA(B 6 ),D 21 ) . IAA 11 IJ 7 I , P) , ELAS 2021 
5 t AM 131 1 ,UV ), I AA I) 55 ) , X I , I AAU 63 I ,Y 1 » ( AA( Wl ), 7 ) , I AA( 179 ) ,XD) . R.AS 2022 

M AA( ISA) ,YD), [ A A{ l 93 I HO I , < AA< 35 1 I , S ) , ( A A ( 40 ) . I KP M ) tLAS? 0?3 

7 i ( AAC 4 ?) , I HP I * t AA <43 J ♦ IPBG ),(AM 44 ),!PFN).IAM 45 l,CnN 5 ).( 4 A| 4 A),llJF:LAS?n ?4 
RJ ,(AA( 47 ) ,Gt J . I 44 ( 48 ] , G? 1 , ( AM 49 ) , G 3 ) 

EOlll VAI ENC.E I I A I 349 I ,NT I C I , ( I A ( 3*8 I ■ I Sll T ) , I I A I 3 47 ) . I SOY ) . I I M 14 ft I F(. AS? 0?6 

1 » JSDZ I I H A I 345 ) , J 9 ) , I 1 1 (? 44 ) , JIO I , I 1 AI 343 ), JPRS) , I I A I 347 ) , JSMY) FLAS 2027 

2 , MA( 341 ) t JsnZI. I 1 At 340 ) , J AR C ) ♦ t I A i 339 ] , JNMX I , ( 1 A ( 33 * ) , -IMM Y ) H. AS 7028 

3 , ( 1 A< 33 7 I , JMMZ ) , I I A ( 33 ft) » .)ME 1 ) , ( I A ( 33 5 ) « J T 45 ) , M A I 334 ) , I 071 FLA 5 ? 0 ?y 

4 , ||A ( 3 33 I , IPk) , I AA [ 337 ) .IK 5 YI ,(AA( 331 »,f>r,| ) , I AA t 330 I .PRES I FL A 57 0 X 1 

5 , ( IA 1379 I ,IPIR), I IAI 32 HJ ,NAV). I A A I 3 ?Y),CEEI ELAS 20 M 

OlMENSTOM 1 H 5 ( 751 ,CCC 1 ( 25 ) .JBSt? 5 > .CCCJC 74 ) ,PV(? 4 ) tL AS 703 P 

EQUIVALENCE t I A 1700 ) , I KS ) , < I M 2 25 ) , J 9 S I . I A A I 2 50 ) ,CCCI). FLAS 2033 

I I AA t 2 76 ) , CCC-I , PV | ???!?** 

DIMENSION NriU( 20 ),PIM 3 ) .NnT( 4 J 

E 01 ) I VALENCE I A A I 300 ) ,NOO) , [ AA ( 374 ) , PRCO ) . I A A I 3?5 ) , ITT T J ♦ t AA< 791 1 , PFLAS 2036 


F LAS2077 
H.AS7078 
F LAS 70 7 9 
FL* 57 0 111 
FLAS20M 
FLAS703P 
FLAS2033 

FI.AS2034 

FLAS 2036 


L D I ■ I IA(3?M, I MS 1 ) 

INPT=INP 

call TICK ( IT1M) 

C CLEAR ST ARRAY 

DO L 32 1*1, KJRIJ1 
I ST I = I $ T+ 1 
V32 AAIISTD-O. 

C GENERATE ELEMENTAL MATRICES AND ASSEMBLE 

2GEM=I&Em 
00 99 M = 1 * I r 
1NP= INPT 
CALL CAS2 
IER»=0 

DO 137 1-1,8 
N ( I ) “0 
XI I 1-0, 

Y{ I )=0, 

133 Z f I 1=0, 

no 134 1-107,328 

134 AA (I ) =D. 

OG^-O, 

nT=n. 

PRESTO. 

0GZ=0. 

OGY =0 . 

CFE= 1 . 

NAV=1 

J T T T = II 
ITTM=l 
CALL TOPO 
on 90 T - 1 * IH 
NODI 1 1 =Nl I) 

IF (NIIM 9800,97,90 
98 CONTINUE 
IMS=IH 
GU TD 2 
9et)0 1 £RR=2 

1 WRITE OUTPUT TAPE 6, 1 1 1 , M . I TT T * IFftft 
111 Fl)R NA T I8H ELEMENT, 214 ,2X, 29111 S UN ACf.h P I ABLE . HI SkECARIiMI . , ! A I 


M.AS7037 
F I. AS 7038 
FLAS7039 
FLAS2040 
ELAS70M 
FLAS2042 
FLAS7043 
FI. AS2044 
F LAS 7046 
FLAS204A 
FLAS704Y 
FI.ASZ040 
FL AS2049 
FLAS 2050 
FLAS7051 
FLAS7042 
FLAS20S3 
Fl.AS?n44 
FLAS2045 
F L AS 209 A 
r-l.AS?0S7 
FLAS705B 
FL AS705y 
ELAS20A0 
ELAS70A1 
FLAS20A2 
FLAS2063 
FL4S2064 
FLAS70A5 
FL AS70ftft 
FLAS704) 
FI.AS2068 
EI.AS20A9 
FLAS2070 
FI.AS20 M 
FLAS2P7? 
FLAS7073 
FLAS2074 
FLAS2C175 


WRITE 1 APF 1 TAS,M, I TTT, 1 TTM, M AV , T MS . IDS. I MS 2 , f N I I ) , I -1 , IMS) , (SI 1 ) , FL AS 7 U iT 6 


11-1,1 052 ) , IP I I >,PV(I I , 1*1, ll>5 I 
IFRR=o 
GO TO 999 
91 I MS = l — i 

2 I TEI=ITE+IT1C 

li>s-]ns*inEG 

TE = AA i I TE1 ) 

IF I ITEM) 97? , 972*971 
9/1 I DTI = IDT+ I TFM 

dt=aai mm 

9/2 IF (JSOY) 974.974,973 
y/3 I DY I = I U Y + JS l*Y 
Or,=AA ( I l)Y I I 
OGY = DG 

9/4 IF (JSOZ) 9 7 ft , 9 7 ft , 9 7 5 
9/5 IDZI»IDZ«JSHZ 
nii7=AA f inz I ) 

OG-OGZ 

9/6 IE IJPRS) 9 7 R , 97R , 97 / 

9/7 I PR 1 = I RIO JP KS 
PRFS = AA( I PR I J 
9/R IF (ITYPF-1J 70. / 1 ■ 7? 

70 IUI-IIA+1MFT 
AL 1 = AA ( ITAl ) 

AL2-AL1 

AL3=AL1 

GU TO 73 

71 I I A I = I I A4HMFT-1 K2 
AL 1 * A A I 1 IA 1 + 1 ) 

A L? = A A I I I A 1 +2 ) 

A L 3-0 
GO TO / 3 

72 I fAI-lIA+L lMfT-1 )“3 
AL 1 = AA f I I A 1 + l I 
ALV-AA ( i I M +2 ) 

AL3-AAL I ! A I +3 I 

/ 3 IF ilTYPF-l) ft0).ft07,ft03 


FLAS?i'77 
F LAS 207 R 
^457079 
PI.AS 2080 
FI.AS 70 KI 
FI.AS 20 H? 
FI.AS 70 R 1 
F I. A 570*4 
PLAS 20 P 5 
Fi.AS? 0 «ft 
FLAS 70 M / 
H.AS 20 RH 
FI.AS 70 R 9 
ELAS 2090 
FLAS2091 
FL AS 2097 
4 I. A 57(193 
F L A S ? 93 A 
► I. A 57094 
FI. AS 7094 
F L A 

FI. AS ?l >97 
f L a 

FL AS 2 I 199 
4LAS210IJ 

FLASPim 
M, AS 710 ? 
r-L 5 S 7)03 

c LAS ? 104 
M.AF 2106 

FLAS?ir>ft 
FL AS? If)/ 

FI. A 8 ? |CR 
I- 1. AS7 ) 09 
FI.AS?! in 
S1.AS211 | 
M.ASPI1 7 
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Table VII-15 (contd) 


60 ) 1 1 d a = n i>+ r ikft-i I*? 

GO 1 U 604 

602 ttOJ = IIl>+( JMET -1 1*9 
GO TO <>04 

603 1 I 0 I=II 0 +{TMFT-U *?1 

604 E = A 4 < J loi + l I 

g=aai noi+ 2 ) 

PU-F/I ?.*G >-1 . 

KELT® I EL T 

GO TO I SO* ,504 * 504 t 504 , 507 , 502 , 502 , 502 , 503 . 603 , 502 . 5 D? . 507 . 502 . 
1503 , 603 , 5 G 7 . 50 ?) .KELT 
502 IP IITYI'E-L) 5021 , 5022 ,5023 
50? 1 IF IISTRI 6021 , 6021,6022 

6021 D 33 I 1 , 1 J = 2 .+G/ (1 ,-Pl.J) 

033 ( 2 . 2 )=D 33 I 1 , U 
03311 , 2) -0331 I , 1 >*PU 
GO TO 6 D 73 

6022 0331 1 , 1 l= 2 .*G*( l.-PU)/U.- 2 .*PU) 

0331 2*2 I - 033 ( 1,11 

033 U ,2 l=?.=G*PU/U 

6023 033 ( 1 , 31 = 0 . 

033 ( 2 , 31 - 0 , 

0 33 ( 3 , 31 =G 

IP UEL 1 - 5 I 5024 , 5074,6025 
6025 IF (rflT- 6 P 5024 , 5024,6024 

6024 £22(1,1 I =R 

E 22 (l, 2 )= 0 , 

F 22 ( 2 , 21 =G 
GU TO 5024 

5022 033 < 1 , 1 ) - AA ( IIDI+ 1 ) 

0331 1 , 21 - 44 ( 1101 + 2 ) 

D 33 ( I • 3 } - 4 A < 1 101 + 31 
033 I 2 , 2 )=AA I ( 1 0 1 + 4 ) 

033 I 2 , 3 ) - AM 1101+51 
03313 , 31 = 44 ( 1 IOJ+ 6 ) 

E 22 I 1 .D-AAI IIDI+ 7 ) 

E 22 1 1 «2 J-AAI I lUl+ 8 ) 

E 72 I 2 , 21 = 44 ( 1101 + 9 ) 

GO TO 6024 

5023 D 33 ( 1 , 1 I-AAI UOI + l) 

033 ( 1 . ?I=AA| I 101+21 
033 ( 1 , 31 -AAI I 101 + 4 ) 

033 ( 2 , 2 )=AA( 110 I+ 7 J 
033 ( 2 , 31 = 44 ( 1101+91 
033 t 3 » 3 I = AA ( I 101 + 161 
E 22 (ltl)=A 4 ( 1101+19 I 
E ?2 1 1 ,2 )= 4 M i lDt+ 20 ) 

F 22 ( 2 , 2 > = AAI 1 101+21 I 

5024 033 ( 2 , 1 ) = 033 ( 1,21 
033 ( 3 , 1 >- 033 ( 1 , 3 ) 

D 33 ( 3,2 J - 033 ( ? , 3 I 
E 22 1 2 , l )=E 22 ( 1 , 2 ) 

GO TO 504 

503 If I l TYPE— 1 > 5031 , 5031,5033 
5031 EE = E 

GG-G 

00 5032 1 = 1,21 
503 ? 021111 = 0 , 

021 I l]-?.*GG*<l.-PU>/Cl<- 2 ,«PUI 
02 1 I 2 ) = 0214 l)*Plf/l l.-PU) 

D? 1 ( 31 = 021(21 
021 ( 71-021111 
(171 (ft l=U21 (?) 

021 ( 121 = 021 ( 1 J 
021 ( 161 -GG 
021 ( 191 =GC 
D? 1 (21 I =GG 
GO TO 504 

5033 DO 5034 1 - 1,21 
11011=1101+1 

5034 D 21 (It = AA(MDlM 

504 I £RR = 0 

C 15 THERE MULTIPLE ELEMENT 

IF I 1 ELT- 6 ) 5100 , 4900,4699 
4699 IF (IELT-AP 51 00 , 4900 , 47 D 0 
4/00 IF IIELT- 10 ) 5 L 00 , 4900, 4800 
4 dOO IF (IELT- 12 ) 5100 , 4900,4050 
4650 IF UELT-L 4 ) 5100 , 4900.4880 
46»0 IF I 1 ELT- 1 6 > 5100 , 4900,5100 
t THERE IS MULTIPLE ELEMENT ,CUT IT IN PIFCES 
4 d 89 I TTT -0 

1 ELT=I£LI>L 
OU 4890 1 = 1,4 
4890 N< | I -NUT I I > 

GO TO 4902 

4900 IMS I- I MS 

00 4901 1 = 1.4 

49 01 NfiT<n=imj 
',902 CALL CUTE (ITT*) 

CF £=.5 

5100 JI+ITTT+lHS 
PftCO-O. 

ITTT=ITTT +1 
1 052 = 105*1 OS 
CIMS-IMS 

cx-o. 

CY-O. 

cz-o, 

nn 55 oo 1 = 1 , ims 
J l l=JI+l 
J = MOlll Jl I 1 

mi n=j 

IF (Jl 1 , 1,5450 
5460 IXXJ-IXX+J 

iyvj=iyy+u 

1 Z£ J- 1 ££ + J 

X( n-AA( IXX.I I 
YU )»A At 1 YYJI 
7(1)SAA(UZJ(*ZDEM 
CX-CX+X( T > 

CY-CY+YI 1 I 

r?=r7+?m 

IF ( 1 - 1 ) 5500 . 5 S 00. 9460 

5460 XGU-l ) = X( I |-X ( 1 ) 

YQt 1-1 ) = Y ( l ) -V | 1 | 

201 I- 1 ) =2 t I I- Z < 1 > 

5500 CONTINUE 

CXiCX/ClMS 
CY= CY/CIMS 
CZ-CZ/C IMS 
DO 5601 1 = 1 , IMS 


FLAS2U3 

EL A $2 1 1 4 

FLAS? | \ 5 

FLAS2116 

ELAS2117 

FL AS? I 18 

FLAS2119 

FLAS2120 

FLAS?1?1 

FLAS2I22 

FIAS2123 

FLAS7124 

FLAS2125 

FLAS2126 

FLAS2127 

FL6S212B 

6LAS2129 

FLAS2130 

ELAS2131 

ELAS2132 

FI.AS2133 

FLAS21 34 

ELAS2135 

EL A 52 l 36 

FLAS2137 

PLA521 38 

FLAS2I39 

FIAS2140 

E LAS? 1 41 

FLAS2142 

FIAS2143 

FLAS2144 

ELAS2145 

FLAS2146 

EL AS? ) 47 

FLAS214B 

FLA52149 

FIAS2150 

E LA 52 151 

ELAS2152 

FLAS2153 

ELAS2) 54 

FLAS2155 

FLAS2156 

EL A 52 1 57 

FLAS2156 

ELAS71 59 

FLAS2160 

EI.AS7161 

FLAS216? 

FLAS2I63 

FLA52164 

ELA52165 

FLA52166 

ELAS2167 

FLA5216R 

ELAS2169 

FLAS2170 

F L A 5 ?1 T1 

FLAS2172 

FLAS2173 

FLAS7I74 

ELAS2175 

PLAS2176 

FLAS2177 

ELAS2178 

EL A S2 l 79 

FL AS? 1 Art 

ELAS21 3 I 

FLAS2I82 

FLA5?| 83 

ELAS2184 

FLAS2L86 

FL AS?) 86 

ELAS2187 

FLAJ2 16s 

EL AS?) R9 

FLAS2190 

ELAS2191 

ELAS219? 

FLASZ193 

FLAS2194 

ELAS2195 

FLAS2196 

FLAS2197 

ELAS2198 

FLA52199 

FLAS2200 

ELAS2201 

FLAS2202 

FLAS220J 

ELAS2204 

FLAS2205 

ELAS2206 

ELS2206A 

FLS2206S 

(TLS2206C 

ELS2706D 

ELAS270T 

PLAS2208 

FLA52Z09 

FLAS2210 

FLAS2211 

FLAS2212 

ELAS22I 3 

EL AS?? 14 

E L AS ??1 5 

ELAS2216 

ELAS221/ 

ELS2? 17A 

FLS2217M 

ELSZZ17C 

FLAS221H 

FLAS2719 

FLAS2720 

EL AS 222 1 

FLAS7222 

FLS?22?A 

ELS22228, 

EL52222C 

ELS2222D 


X ( T ) * X ( I)-CK Ft S2222E 

Y( 1) =Y( H-CY Ft slf??F 

5_50i Z<l>«2(ll-C2 FLS????G 

5600 00 6 1 = 1, IDS FLAS???3 

P(n-o* FLAS2??4 

EL52224A 

ISS-I-IDS FLAS2275 

FL AS?7 7 fc 

I SS=I SS+IOS ELAS2277 

7 SUSSJ-O. FLAS222B 

6 CONUNUE FLAS2229 

(OTJ 82,63.02 ELAS??30 

fl? on 84 1-1, IMS FLAS2231 

n-lMS+l FI.AS2232 

mm! ! ? S ' t ‘ 1 ! F LAS ?? 3 3 

UVII 1=XI n*OT=ALl F L AS 27 34 

UV( 1 1 I =Y I I I =DT*AL2 U AS??35 

R4 UVI12I-2M >*DT*AL3 F L AS ?? 3 fc 

B3 CALL STFSUELTJ 6LAS2737 

5041 IP UNH-ll 86,86,85 FLAS2238 

B 7 FORMAT [////20I5/l2F10«3/12F10.3//l 51 16, F13. 4,5X11 } Fl AS??39 

85 4IRITE DO (PUT TAPE 6,87, M. (Nl JJ , J = 1 ,f} | , ILL T , 1MFT, I T )C. IT FM, JPPS , J ARELAS7740 
IE , JSOY, JS02, JMMX, JMM. IDS,(X( J) , Y( J 1 , 2 I J| , J-l ,«] , M . Sill , I =1 , I OS? I FL A$??4 j 


b 6 IF (JERRI 1,951,1 

951 IF (OT) 952,954,95? 

954 IF (OGI 952,9551.962 
9561 IP (DGZ) 952.953,952 

952 call OMM (5,UV,I0S,PI 

953 IF I I P0G I 957,957,968 

968 IF (IPFIG-TPEN) 9 59,959,967 

969 OO 955 I=1PRG, IPFN 
neLP=C0NS=Giu) 

CPRS-PRCOAPOI I 1 

I J- I I - IPBG)* IMS 
DO 956 J=1 . IMS 
I J= I J+l 

966 P ( I Jl-P I I.H+DELP+CPRS 
95b CONTINUE 

95 f IF (INP-ll 9532,9532,9531 

9531 WRITE OUTPUT TAPE 6 ,9533 , [ I ,P I I I ■ I = 

9533 FORMAT l//(6( 16, E13.4,5X II ) 

953? DO 95 1=J,Il>EG 

00 94 K=1,IMS 

1 6 = I NS* ( 1-1 UK 

1 S= l£>eC*tN(K J-l > + I 
I S E =• 1 E — I OS 

CALL DARN (1 S , I 8S ,CCC I , 1 QE J 
JF (IDE) 307,307,306 
30/ IERR=6 
GO TO 1 

30d IJO 393 10=1, I OE 
I $S= I SE 

CCHRI=CCCMIO)+CFt 
16-I0S( 10 1 

IF (CCUR1 I 91?, 911 ,912 
91? IOEFJ = |DtMIfl 

AA I IDEFI | = AA( JDFP I I ♦CCLJR I *P M E ] 

911 DO 93 J =1 , TOCG 
DO 92 L =1 , IMS 
ISS=IS$+I0S 
JE=1M5*< J-l )+L 
JS=IOeG+(N( L)-l>+J 
CALL DARN ( J5. JflStCCCJ.JOE I 
IF (JOE) 307,307,408 
408 (TO 39? .10= 1 , JOE 
CCURJ=CCC J I JO > 

jft-uesi JO) 

P-CCUR I +CCURJ 

IF ( F } 913,392,913 

913 IF (J8-IN0I 9)4,914,915 

916 AAUDEFI )=AA ( 10FF I ) -F*S ( I S 5) 

GD TO 392 

914 IF IJhHR) 392,916,916 
916 lUl-IUflB 

1 ST I =1 ST+ I a ( | |l | I+JB-IB 
AA ( 1 ST 1 I - AA( I ST I I +P*S I I SS I 

392 CONTINUE 

92 CONTINUE 

93 CONTINIIF 

393 CONTINUE 

94 CONTINUE 

95 CONTINUE 

IF I1TA5 > 99BI ,998) ,9962 
998? 00 9903 I = l , I OS 
PV< I )=P< 1 ) 

9983 PI n-o. 

CALL DMM(S.UV.IOStP) 


FLAS2242 
FLAS??43 
FLAS7244 
FLAS2245 
FI.AS??46 
EL AS 2 2 47 
FLA S2J4B 
ri AS2249 
EL«S2250 
FLAS225I 
FLAS2252 
FLAS2243 
FLAS2754 
FLAS2255 
ELAS2756 
EIAS2257 
FLAS2258 
ELAS2259 
ELAS2260 
FLASZ761 
FLAS2262 
FLftS??63 

FLAS??64 
FLAS 2265 
FLA52266 
ELAS7267 
FLAS226R 
FLAS2249 
EL A 57? TO 

flask? n 

FLASP272 
ELAS7?73 
ELASP7T4 
ELAS22 76 
FLA57276 
FLAS2277 
ELAS227B 
ELAS??79 
FLAS2780 
FLAS22B1 
ELAS22H? 
PI. AS?? B3 
ELAS220* 
FLAS27B6 
FI.AS2286 
ELAS2PRT 
FLA$2?88 
El, A 52289 
ELAS2290 
FLAS2291 
FLAS729? 
FLAS7293 
ELAS2294 
ELAS7745 
ELAS2296 
FLAS2297 
E I. AS ??9fi 
FLAS2299 
ELA52300 
ELAS23D1 
FLAS2302 
FLAS2303 
FLAS?304 
ELAS2305 


WRITE TAPE ITAS.Mi I T T T , ITTM , NAV , 1 M$ , I OS, I [)SZ, (Nl (J,f = l,T MSI, (Sill ,FLAS 23 U* 
11-1 ,inS 2 ),(PU).Pvm,l = l,lDS) FL AS? 307 

991.1 CONTINUE FL AS 23 D 8 

999 IF HTTT-ITTK) 5100 . 9990,9990 6 LAS 2309 

9990 IF I NAV -2 1 99 . 48 B 9.99 FIAS? 0 )n 

99 CONTINUE FLAS 23 II 

IMP=INPT FLAS 231 ? 

CALL CAS? FLAS 73 3 

IF I INP-ll 232 , 232,233 FLAS 2314 

233 1 END= 1 ST+ I HRD FLAS 2315 

I ST 1 - 1 S T « 1 f | AS 7 31 6 

WRITE OUTPUT TAPE 6 .B 7 ), (I ,AA{ I I , I - I ST 1 , | END > ELAS 2317 

071 FORMAT UHl, 62 HUPPtR HALF OF THE STIFFNESS KA ) R I X AFTFR B.C. IMPOSFL A S 2 31 K 

1 E 0 FOLLOWS. /B 9 H ROW LlSTJNR, FOR 8 ANDWI DTHS SEE THE TABlF F[JR MFSHFLASPSl 9 
2 TOPOLOGY OF REDUCED STIFFNESS MATRIX./// f 5 t I 6 .E 1 4 . S , 4 X) 1 ) E(.AS 23?0 

IDEF^IDFF + I FLAS 23 P 1 

IENO-lOEF+ 1 SUM FLAS 7322 

WRITE OUTPUT TAPE 6 , B 711 , 1 1 , AA ( I ) ,1 * IOEF l , 1 END 1 FL«S 23?3 

8/11 FORMAT ( [HI , 3 1 HRE 0 UCED LOADING VECTOR FOLLOWS. / / / ( 5 ( I 6 , F 1 4 . 5 , 4 X ) ) j EL AS 2 324 

232 IERR-LU FLAS 2325 

IF (ITASJ 2323 , 7323,2324 FLAS 2376 

? 3?4 REWIND 1 TAS FLAS? 3?7 

2323 CONTINUE F L A S 2 37 fl 

CALL TICK (ITTm) FIA 52329 

C 2 T=U 1 M fiiklhlZ 

C 2 T=C 2 T/ 60 . ELAS 2331 

WRITE OUTPUT TAPE 6 , 5555 .C?T FLAS 2332 

5665 EUKHAT I 21 H GENbKA T IUN LINK TOOK, FT. ?, 10 H SECONDS.) FI.AS 7333 

INP- 145 UT FLA 5 2 334 

IF I I NX- 2 ) 2321.2321 , 73 ?? FLAS 2335 

2321 CALL CHAIN l|,ITAP) f LAS? 33 A 

? 3?2 CALL CHAIN 13 . (TAPI FLAS 2337 

EN0 FLaS5^4H 
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Table VI 1-1 6. Source program listing of 
subroutine ADM (Link 2) 


Table VIM 8. Source program listing of 
subroutine CA52 (Link 2) 


* LAOEL 

Ct-2ADM 

SUBROUTINE ADM ($, I 05 , A, H , I 8 . J 3 , C ) 

C ADDS SU&MATftltfiS TO FORM 5TI FFNF5S MATRIX 

DIMENSION A(4,4)»SI1 I 

00 10 I -1 ,M 

ISMB+l-1 

If Hh-jft) 12,11,12 

11 J I - I 

GO TO 13 

12 Jl=l 

lJ DO 90 J-JI.M 
JS = JR + .|-1 
I SS* f J S— 1 >*10S+IS 
$1 IfiS)*S( ISS) + 1II,J)*C 

1 SK* 1 I s— 1 J*H)S«-JS 
si i sr j=$i i $$ > 

90 CONTINUE 

lu continue 
return 

END 


F7 ADMOOt) 
i-?ADMnm 
P? AHM0D2 
E ? ADMOO‘3 
F240MOD4 
h PAOM006 
FAAIWnb 
F?A(IM0D7 
F^dnwnciR 
F7AUM0O9 
p? tr>*nif! 
f ?ADM011 
F76DM01? 
r?ADMni 3 
E ?. APMO 1 A 
F7A0M01 5 
F?flOMni(S 
F?AnM0\7 
VpAflMO) ft 
1- 7AI1K019 


Table VIM 7. Source program listing of 
subroutine BEAM (Link 2) 


>» LABEL 

CE2BFA F ?£F AOOQ 

SUBROUTINE BEAK F ?HP 6001 

C GENERATE 5 SUBMATR I CFS FOR FlPKENT TYPFS 2 ANO * F7ftFAC>02 

DIMENSION I All | , AA(1 I ,S(1) ,N(fi) ,D71 I ?1 1 .0331 3,31 ,F2?< 3, 3 I F2BF6003 

UP I 24) ,UVI24),X|$| ,Y|8},ZI« l,XD(7),Ym 71 ,7.1)17 I .fil Cl I FPRK A 0(14 

COMMON 1 a , AA F?ft F6005 

FOinVAl.fiNCt-UA, AAI , (D2UD33), (021 ( 1 0 ) , F ?? I , ( 02 1 (1 9 1 , F ) , I D? 1 ( 20 ) , G ) F ?BFAQOf> 
EQUIVALENCE (|AMUIN),MAl2),IRN|,nAl3| T IT),nAf4},|Pt,(IAf>), E2ftFA0O7 
1 I PR SI ,| I Alt. ) , I TYPE >i ( I At? ) * I MAT I , ( I A I R ) , JOPG) , I 1 A ( 9 1 , INX ) . I | A M U ) , F 7RFAQ0B 
2IH), I (Adi ), m , I 14(121 U A I 131 , I MKY > . ( i A I 1 4 J . 1 KKZ ) ♦ M A 1 L 51 . F2RFA009 

3IMFII ,( 1A| LAI. |AHE),IIM1T),NU J),( IM2SI.F). I I M26). 1TY),( I A ( 2? > , F 2BF40 l 0 
4 (SIR) , t IAI7B1,IFLTI.I !A|29UITFM|,IIA| 30 ) . 1 T Tf. I . t I A I 31) , I MPT ) , F7RFA03 1 
51 14(32) , I SUM I . 11 A l 33 1 , I Nil). 11 M 34 I, f»$l , ( I A ( 34) , IDS), ( IA 1371 , F7BPA0L2 

M0RD),I1A(3R). I0R01 ) , I 1 A ( 39 ) , ACF L 1 . 11 A I 50 ) , J 1 ] , ( I A ( 51) , <1 ? ) * T7BFA013 

71 I A(S2) , J3), UA(53), J4P, 1I6I54| , J5I . I !A(55U J6>* 1|6< 56) , J7 ) , ( J A( 57r?RF 6(11 4 
HI 1A(5B) , JTY) , I IAI591 ,lRR)t NAI*0>, IBdJ .MM611 , ITD), 1 1AI42) ,F?RFA015 

9 1 1 A I , I 1 A 1 6 3 P « 1 1) T ) » (1 A < 64 } , J ITV J . I l A ( 6 5 I » T T F U I T A I 4 1 I < ] T A R P F AA 1 6 

EOLII VALENCE I IAI66I , 1CARU UAIA7I.ICIXU HAIM*) , IC1YI , ( I At*9) , F^RTAOl 7 

HCIZI.f lACTOl.ICFI ),IIAI71I,I5(X)»(1A(72),|YY|,< IM73),IZZ>, F ?RF AO 1 R 

21 1 4174 J, MC I .CIAI75I , TOFF I .MAI /61 .1ST ) , II A I 77 ) , I IS) P7RFA019 

3.UAI7BI . IGEM), |1 A (79). I ERR), IAVMBD) *TF) , t AA(ftl ) »flT) , ( AA 1 ft? I ,f>F) , P7RPfln?0 
4|AAia3t,AL 1 I ,(AAI64| , AL2>, ( AA|ft5l tAL3). lAAIflf,) ,n7l ),IAA( 1C7) ,P), F2BFAD71 
5IAAM31 I .IJV|, IAAI L55J,X) , (AA(163),V}. I AAH71 I ,7 1 , (AAI 1791 ,XH), F 2f)F Afl ?? 

61AAMH6J ,YI>| , I AA I 193) , 20 ) , { AA | 351} , S > , I AA ( 40 > , 7GFM ) F2ftFAD23 

7,( AAI42) ,INP) t (AA(43),IPfir,l, (AAI 44) ,JPFN) , ( AA ( 45 ) « (WINS 1 . IAAU6I , Ill??ftPA024 

8 ) , 1 6 A { 47 ) » G l ) , ( A A { 4 fl) , fi 7 ) , (AAI 49 1 , G3 ) «-7H,FAf>25 

EOUt VALENCE I I A 1349] ,N1 JC I, ( JAI348) , ISDT) ,( |A< V>7I, TSDY) , ( 1AI346I F?fJFA026 

1, ISDZI, I I A | 345 ) ,J9), (I A I 344 I . JiO>,< I A 04 3 I , J PRS J , ( I A ( 347 1 . JS[1Y) F ?RF 4027 

2, I [A (341 ( ,J502 U I IAI340I , JAkt P , < U I 339 ), JKMX ) , ( I A t 33 8 P , JMM Y I E2H FA02R 

3, t IA< 337), JKMZ ) ,( 1A( 336) , .IMF I) . ( I A( 33 5 I . 1 T AS > . I IA( 334) , I DZ ) H 2RP A0?9 

4, MAI333P.IPR1 , ( AA(33?),DGYJ . ( AA( 33 1 I ,DGZI , (AA(330) , PRFS) P 7H F AJJ 30 

5, ( I A ( 329 ) , 1 P t R I FPRFA031 

DIMENSION A(b,6),DIR(3,3), UVG f 1 2 ) , T I 6 ) , PH I 3 P , PN I 3 ) , OiPfi I 3 ) E2HFA0 32 

EQUIVALENCE ( A A ( 200 ) ♦ A ) , { AA I 236 I , HI , < A A ( 237 ) , AREA I , < A A < ?3 R I , 7 II P2HFAD33 

1, (AA < 239 P «.JJ I , I AAI240) ,!R) . I AAI241 ) t JRU T AAI 742) »NY 1 . I A A I 244 ) , I) 1 P. ) E2PEA0 34 
7, I AA( 306 I ,IJVG J , ( AA ( 291 J ,P0) , I AA I 294 ) , PN) , | AAI 297 J ( AA( 3M0) ,T(F?RFA0*5 

IF I JAR E I 1010,1010,110 


110 ICARJ-ICAR+JARF 
AREA=AA(1CARJ} 

IF ( I MM2 I 1010,150,160 
li>0 IF (lMMY) 1010, 1010. 155 
155 ICl ZJ'ICI Y+ JMMY 

no to 170 

16(1 ICl Z J-IC I Z+ JMMZ 
170 All,l }sE*AREA/FL 
4(lt?)=*All,l ) 

A(2,2) a AI I ,1 > 

A I 3, 3 > * 1 2 . *F *AA M C I Z J t / I F 3 I 
A < 3,4)--AI3,3) 

4(4,4) =A| 3, 3) 

A(3,5)-6.*E* ! 4A|ICIZJ)/(FLA , *7) 
A(3,6)=AI3,5J 
A I 4 , 5 ) °-A (3.5) 

A 1 4 , f> ) “A 1 4, S 1 
A(5,5)=4.*F*AAI ICIZJP/EL 
4(5, 6)=. 57415,5) 

4(6, 6) =A (5, 5) 

on ?oo 1 = 1,6 
no 200 J* l , 6 
700 At J, I )=A| 1, Jl 
100(1 RETURN 
1010 IERR=l 

On 10 1000 
ENll 


P2RFA036 
F7RFA037 
F7RFA03H 
F7RF4039 
F7RFA040 
F7BFAP41 
E7BEA04? 
f 7Bf A043 
F?RFAfl44 
F2HPA045 
F7RFAD46 
F?flf A047 
F?Rf A04R 
F7RFA049 
F ? R E A 0 50 
F2AFA051 
F2RFAD57 
F2BFA053 
F7PIF40 54 
F 3RFAD55 
F2RF40R6 
F2RFAfl57 
E2RFA05R 
F7RFA059 
F?BF A(1 60 
F7PF40AL 
F7REA042 
F ?Rl-4 D63 


* LABEL 

Ct 2CAS7 

StIRHniJT I NF CAS? 

C DUMMY 51 JAM UP 1 i NF 

RETURN 
END 


<-?CAS?^n 
F7CAS701 
■-7CAS70? 
I'PCASPOJ 
F ?C A570 4 


Table VI I* 19, Source program listing of 
subroutine CODI (Link 2) 


ppcnnono 

F?r.nrwu 

E 7000092 
F?cnnoo3 
F?cnomi4 
F?Connr»5 


* LAHFL 

CF2CIPL) 

SimROuTlNf 

C imiAlMS I HANS FORMAT I ()AJ MATRIX HF LHC Al -IIVFRALC FC-R I. INF FI.FPAFVI 

()| MR NS I (IN I Ml I ,AA (!) ,S(1 P ,N(«) .021 1211 , <>33( 3, 3 ) , E ?? ( T « 3 I 
1 ,P| 24 > f llV(?4) . X IR),YIF I ,Z(H),XI)(7) ,vnm ,7DI7 P,G1 I 1 I 
Common 1 A , a a 

FODl VALENCE I 14, AA I , (DPI , 033 ). 10211 101 ,P2?U H>?1 I 191, F>, IO?l ( 20 1 , ft 1 F PCPOOn 6 
FQUI VALENCE ( ]A( 1 ) , INI . 116 t 7) , IHF>> ,1)413). IT), <|A(4),IP1.I]A(5|. F2C(JD0O7 
l JPRSI T I I AIM , ITYPF ) , ( 1A< T) , I ‘'AT ) , I I A [ H> , 1 LPFC ) ,I)A(9),INX).ITAII0!, FPOnDOOR 
21 H >,114(11 |,IB),(IA(1?),| KMX } , I I A I 1 3 ), I MMV P , I I A I 14 I , I MK Z I , ( I A IT 5 1 , r ?Cf)(1009 

3 IMF I ) , ( I A< 16 ) , I ARE) , ( 1 A< 17) X 1 ) ) , ( I At ?M ,M) , tl A I ?M , 1TY ) , 1 I A I ?T) ,F?Cnn(110 

4 1 STR 1 , 1 1 At?B P , ) PLT) ,( I A (29 P, 1TFMU I ] A I 30 P , I TIC P , (1 A I 31 ) , I MET) , EPCnlTOl 1 

5M A I 32) , I SUM , I I A( 3 3 ) , INDJ . ( IAI 34) , I MS) , ( IA(3A) , I D5 J , I I 4 (3 / ) , F?Cl 10012 

MORF)), ( I A ( 3ft P , HlPtOI ) . (I A ( 39 1 ,ACFL ) , I |A< 50 ) , Jl I . ( I A I 51) , .17 J , F2C0DO13 

7[ ! A ( 5 ? ) i.) 31 ,< I A ( 5 3 ] , j 4 ) , { | A ( 64 ) . .1 5 ) . I I A I 561 » J 6 ) , I I A I 5 6 1 ,.171 ,( I A [S7F?Cf)l)H 1 4 
8 I .JM i I I A (58 I , JTY) , I 1A< 59} , I ftft I , ( IA( 6D} T I HIM , ( I A < 61 ) , 1 10) . I 1A162 ) .FPCnOM 5 
91 U ] , < TA( 63). 11)1) , I I A ( 64 I . )fW] . ( I A< 65 > . I Ti U M MM) . ] TAP ) FPCnDOl 6 

EQUIVALENCE (16(66), ITAIt) , II A ( 67 ) , I C t X } , (I A ( /,R I , K. I Y 1 , ( i A ( t>9 ) , F2Cnonl 7 
1 ICIZ),t 16 (701, ICF|),{ 16(71). IXX |.(IAI 72),IYY>,( tA(73),IZZI. t-RCOllOLR 

PI ! A I 74) , I I C ) . I 14(75 I, I OFF) . I I M 7 6 ( , I ST > , (1 A I 77 ) , II S 1 F7CIID019 

3, ( 1 A ( 7R) , IGFM) , f I A ( 79) , I FRIO , ( AA I *0 ) , T E ( , ( AA ( R 1 1 , [IT > , ( AA ( P7 ) .DM , F7CHD070 

41 AAI ft3) , Al. I ) . I AA l«4 I ,AL2) ,( AA(H5) ,AL3| . ( AA( II 6 ).M71 ) , ( A A I 1 0 7 I , P I , P?C<)|)CT?l 

5< AAI 131 } ,IIVI ,( AAI 155) ,X},( AM 163) ,Y ) ,(AA(171 P,7) , IAAI 179UX0P , FPCUOtl?? 

61 AA(136),YD), (AA| 193J .ZD), (AA(35H,S}, IAAI4D) ,Zr,fM} P7C0I107 3 

7. (AAI42 ) . IND) , (AA ( 43) , |PBG),{AA(44) . IPFN) . IAA(45| .CONS) , I 44(46}, |llF?C00n?4 

H) ,*|AAI4 7I ,G1 1 ,( AA(4R),f,2),| 44(49),G3) F2C0007 5 

EQI1IVAU NCE I i AI349) ,NTIC) ,( IA(34R). ISDT) , I I A13471 . I SOY} * t 1A (346) FpCrflOPb 
1 , I 50 Z ) , ( 1A| 345 ) , J9) , ( I A I 344 1 , J10 J , ( 14 I 343) , JPRJ I . ( I A( 34? I , JSOY I F7CO0027 

2. 1 I A (341 ) , JSD7 I , (14(340). JARF I . < I At 339 P.JMMX), H A I 33F) , JMMY J F2CnOD?« 

3.1 I At 337 ) , JKMZ > ♦ [ 1 A [3361 , J*r 1) , I I A ( 335) , [ TAS) , ( I A ( 334) , IflZ ) F 2C0PW9 

4, I I A r 333 I , I PR ) , (A6 ( 332 ) ,OGY) , ( AA(331J,nGZ) . I AAI 330 ) , FftFS ) F7C00030 

5, (I At 329), IP MU P7Cn003L 

Dl KENS I LIN A (6,6) .01RI 3 , 3),UVGt 12) ,7 (A) ,P0( 3) , PN i 3 ) . DUG I 3 ) E2CCI[)m? 

EQUJVAU:NGF I AA I 700 I , A I , ( AA ( 2 36 ) , FL) , I 64 I 2 37 ) , AR F A ) , ( A A I ? 3ft ) , I 1 ) F2CD0033 

1 , [AA (239 ) , J J) , (AAI 240) ,1R1 , ( AA ( 24 1 1 ,JR t .<AA(?4?) ,NY) , (AAI 264 I ► D1 R ) F?CODn34 

2 , (46 (306) ,UVG >, I A A ( 79) I , PI) 1 < ( AM 294 J,Pv| , ( AAI ?97 ) ,0OG) , (44(300) , T I r 7011007 5 

FL-SOKTFIXDI l )#xnt) ) + Yf>(l |*YD( 11 +Z D I 1) *7 CM I) I F7CCD0 36 

IF (EL) 1010,1010,110 F?cnnn37 

110 IF MELT-3) 115,250,115 F?CnD03R 

115 DIKII , U=xnl l )/FL FPCr'00 39 

I’ll H ( 1 1? )=YDI 1 I /PI. F ?C Ml JO 40 

1)1 R I 1,3 > = 701! )/U. F7CIUH141 

IF (JKFJ) 1010,710,130 F7Cni1047 

Pin IF IIGEM) 1010,220.1010 F?C(T0<v,3 

130 ICFIJ-ICFI+JHF] F ?C 000 44 

IF (ABSFI AAI 1CFI.J I 1-90. ) UO. 140, 1010 F7Cnr)(J4 5 

140 F | =A4( IC.FI J ) *3. ! 4159P6/1RIJ . F?Cn|)046 

IF (FI) 144,144,146 P7CnD047 

144 S1GNFU-L. P2CUD04F 

r,i.p m 14ft F?cnw>49 

146 SI GNF [ ■ 1 . P 7 C UD050 

l4fl lF(AnSMOIKI) ,1 M-.1E-3J 150,150, 160 EPCODOM 

IdO I F f ABSF ( DTR(1 . 3 ) l-.l F-3 I JBO,1HU.170 F2CH0052 

IbO 0 1 R (?* 2 I “CnSF (FI) FPCO0O53 

4 St 1 = 0 1 ft I L ,1 ) «M1R( l , 1 1 F7C00054 

AX=1 . + 0 IR 1 1 ,31 ^Dt R I 1,3) /A$(l <-2C0n055 

rtX=niRIU2 Ul»lR( 1 ,3)YnlR(?,?)/AS0 F2C0D056 

GX=niR(7,PI»DlR(2,2) + DlK(1.2)«r)IKf 1 , 2 ) I 2 , ? ) *D I R I 2 , ? 1 /ASO-l. F?C(irt057 

DI R ( 2 ,31 “ I -BX+S ) GNF I 450RTF [KX4ftX-AX^CX) >/AX F2C00058 

165 nnu?,i ) = f-niRi i,7) fe DiM7»? i-oiRi i,nj *r)iRi2,3] )/u)R(i, n E?cnnn6 9 

Go to 190 6?Cnno60 

1/0 DIR I 2 ,2 ) -tUSF ( F I I E2Crmn6l 

(J I R I 2 , 3 ) =“TJ lK(l.?)' ! f)IR(2.2)/DlR( 1,31 F?CnD062 

D J R I 7 , 1 )=SIGNFl«S f mTF( l.-OIR(2,2)*fHftl2,?)-DIR(?,3)Yn|R(?.3l > F?Cn0067 

Gi) Td 190 F?cnnri64 

l«0 DIRI ? ,3) =[.HSF I F II F7CnD065 

D I R < 2 , 2 ) =0 » F?C(>no66 

0IRI2,1 ) = S I CNF 1 w SQR T F ( 1 , -O I R I ? , 3 ) f 0 1 R [ 2 , 3 ) ) F 7011)067 

I VO D1KI 3,1 )=OIRI 1 ,2)^DIK(2,3)-(J1R(1 ,3)t'0IP !?,?} F2.f.l)IH)6H 

DIR I 3 ,? ) =-l)TR I l,l)*DIK(7,3>+IJIKI 1 .31*01 R 17, 1 1 F?Cd004 9 

DIR(3,3)=DIR(1 ,1 }«HIIR(2,?)-niRn , ? ) •DIR 12,1 ) F?CnL)070 

GU TO 1000 fPC00071 

770 1)1R( 7, 1 1 =- 15 1 R I l i?) F?cnno7? 

DIRI?,2)=niR( | ,1 I F7CFID073 

OIRl 2,3 )=0. F?Cnn074 

DIRI3,1)=0. F7CI1D075 

Ot R ( 3 ■ 2 )-0. F?Cl>i>(176 

DIR(3,3) = 1. F 7 C 111)07 7 

GO TO 11)00 F 2001)0 7 )t 

250 D I R ( 1 , 1 ) = 1 . F? Cl 10(179 

OIRl 1 ,21=0. F?cnooao 

di r n , 3 ) =n . fpconnftt 

I)1R|7,1)=D. F7COI10A2 

0IR(7 ,7 )=XI)(I )/Fl F2Cnri(lR3 

OIR(2,3)“YD(l )/FL F7Cfll)0ft4 

D I K ( 3 , I P =0 . F?C(inDR5 

D IRt 3,2 P=-D [R(? .3 ) F2CnOOft6 

OIR ( 3, 3 p =0 1 K 1 7 , 7 ) F?Cf»[)Dft7 

lUuO RETURN FZCnOtTftH 

loin I FRR = 1 F?C0l)0n9 

Ul TO L 4600 F?cn 0090 

END F7COD091 
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Table VH-20, Source program listing of 
subroutine CORT {Link 2) 


* LAB? I 

C.F2LRT F7CRT00Q 

SUBROUTINE CORT P7CRT001 

C UK TAINS COORD I NA I F$ OF 1 R 1 ANGULAR SHELL ELEMENT IN LOCAL COO RUNT S . E2CR 1 007 

01 MENS I ON I AID ,AA(1 ),s< 1 KNI8I . I>2 1 T ? I ) ,0331 3 , 3 > , 622 1 3, 3 J F7CRT003 

1 ,('(2**) ,UV( 24) » X I 81 ,Y <«>,/( HI ,XOlY) ,VU(Y) ,/!)( M*(il (11 F2GRT004 

COMMON 1A,AA F7CRT005 

EQUIVALENCE! I A, AA I , ( 02 1 , 033 1 , ( 02 1 11 l) ) , F2 ? ) T ( 02 1 1 1 9 I . E > , f 02 ] ( 20 ) , G I F 2C« T006 
E0IJ1 VALENCE <IA(L),|N>,nA(?],IfiNJ,<lA(3),lT),IJA(4|,lP>,nA(5l, F2CRT0D7 

L lPftS l,UA(61, 1TYPE 1 * < 1A(7) , I MAT), I I A < rt 1 , 1 1) E G ) , ( I A ( 9 ) , 1 NX ) , ( I A I 10 ) .E2CRTOOH 
?IH}, (IA( U>, IRP, I IA| 12), 1MMXJ , ( IAM3). IMMY|,( IA(14) , |MMZ) ,{ I A ( 1 5 ) , F2CRT009 
3 IMF! I . TIAdfc), lAftf ] , ( I A( I n ,M( 1 ) ) , t I At 25 ) ,M ) . I 1 A I 7 ft I, I T Y ) , I ! M 7 7 I ,F2C«TOIO 
4ISTK), I 1AI2R) MELT I , ( 1A(?9), ITEM) , ( 1AI30], TT1CJ , M A(3I >. I MET), P?CftT011 

til I A ( 32 ) , 1 SUM ) . ( |A(33) , IND) ,0*134] ,IMS I ,{IA(3A) , IDS) ,< IA(3/) . E2CR70) 2 

AIORO) , I IA(3n),TFlRDl ) . ( I A (39), ACFL I , ( 1 A ( SO ) ♦ J 1 ) , (I A ( 51 > ♦ J2 > , F2CRT013 

7(14(5?),. 131 ,04(53), J'0, II A(54),J5>,<1 A(35l,J6>, II M5M ,07 ) . ( 1 A < 57F2CRT0I4 
flj.jft), I 1A<5R},JTY) , ( IAI591, Tftli), ( |A(60) , fftf)] , UA(ftl |, IID) ,( I A ( 6? ) , F2CRT0L 5 


F7CRT0?? 

F?CRT073 


911 A) , ( 1AI63) , IDT ) , I 1A164I , 1UY P ,1 l A ( 64 ) « ] 1 >- ] , (1 A ( 4 1 I, 1 TAP) F2CRT016 

EMU I VALENCE I 1# r6M, ICAR), I I A I 67 ) ♦ I C I X J , I I A ( 6R > , I C I Y I . (I A ( 69 ] , F2CRT017 

1 I C I 2 ) , I I A I )[)),! CF] 1 , ( I A ( 7 1 ) , ] XX ) , ( I A I 7 ? ] « I YY I , ( I A ( 73 ) » I 7Z 1 , F2CR T01 ft 

?( IA| 74 J <U173I , IOFF),( lA<7ft), !ST},UA|77|, IH) F2CRT019 

3, MA(7P) , I GEM ) , [ I M 79 ( , I ERR ) , < AA< BO ) , T E I , ( AA ( 8 l ) , DT ) , I AA ( fl? ] .00 ) , F2CKT02I) 
4( AAIS3I tALl), IAA t04| ,AL2),{ AAIR5I .AL3P, ( AA(ftft),0?l] , IAAUD7 l,P) , E2CRI071 
5( AAH 31 ) ,UV I , t A A I 1 ft 6) ,X ) . I A A I \ A3) , Y ) . I A A I 1 71 ) , 7 ) . I A A < I 79) ,X0) , F7CRT0?? 

M AAI 18ft), YI>P, I AM I93),Z0) ,{ AM351 >,SP, I AAI40) , Z GEM J F?CRT073 

7 • < AA ( 42 ) , 1 N) 1 1 . ( A A ( 43 ) » I P RR ) , I A A I 44 ] . I P Eh ) , (AA(45) .CONS) , ( A A I AS ) , JUF2CRT024 
K),( AA(47) ,G1 I , ( AA(4ft J f ft2) ,f AA [49) ,C,3l F 2CK T (17 ft 

EQUIVALENCE I IAI349I ,NT1CI , UAOAft] . IS[>TJ T (| A ( 347 I , 7 SOY P , ( I A ( 346 ) E2CR1026 

l t ISH2)f UAl345),J<*),IIAI3V,] f J10|,< I A < 3* 3 ) , JPR$ P , ( I A < 34? ) , J 5F1Y ] F?C«Tn7/ 

2, (1 At 341) ,JSR2) , MM 34(1) , J ARF) . IIA(33‘J) ,JMMX>, I 1AI33FI ..IMMYl PZCRT02R 

3 , ( I A( 337 ) ,JMI“7), ( I A I 33t> 1 , JrtH I . ( I A ( 13 i I . 1 I A r , I , l 1 A i 334 I , I DZ ) F2CRT029 

4 » ( ] A I 333 ) , T PR ) » ( AA I 337 I , DGY ) , tAA(331 I .DC,/) , I AA ( 33D ] , PRFS J F2CRT030 

», ( IAI37V) ♦ IPJR) F7CRTri3i 

mMFNSIlJN DtJMX I 3 | , [7UNX I 3 ) F2CRT03? 

FMUIVAU-Ncr IAA(200I tDIIMX) , I AAt20 3l,OUMX| F 2 CRT 03 3 

DIMENSION FM{4 t A P , fiN I A ,4 ) ,QT A, * 1, 0 I R ( 3 , 3 I .UUMtlHI I2CRT034 

EIHJIVALFNCF ( AA I 2 IK) ) , EM P , t A A I ?1 6 ) . EN I , ( AA ( ?3? » , F Q ) , ( A A [ 24R ) , O I , F?CRT03f> 

1 (AA[2fj<- P ,0IR) .(AA (273) ,IPI)M] F?CRTn36 

EL = SORT F I X I1H ] |*XfP( l )+YD[ 1 )< l YDf l )*ZOf 1 1 ) | F2CRT03 7 

D1RIM l=X[)(l)/FL FPCRItnft 

[)IRn,2P*Y0ll l/FL F2CRT039 

niftn ,31-zrii i ]/fl f2Crto40 

UIKI3,L l=P)IR(l ,2)*ZD(2)-rHH(l T 3)*Y0(2) F2CHT04I 

UlRt3,7P=DlR(l,3)*Xr>(2)-DIR| ), ?) F?i:Rin4? 

t>IR(3,3)=DlR( 1,1 >*VI)(2>-L»IR( I ,7)*XfH7) F2CRT04 3 

EL«S0ftlHDTRI3 t l >*01IU3 t l |+nlK| 3, 2 P^OIR ( 3,2 l + OIR< 3, 3 P*D t K(3 , 3 ) ) F 70ft 1044 
0IR(3,l )=ni«( 3,11/bL F2CRTn/.S 

OIR(3,2)=DlKfT,?l/EL e?CRT04b 

L> t Rf 3, 3 ) =F) Tft I 3 , 31 / EL F7CRT047 

01R12 1 1 )=DTRI3,?P*DIR(1 , 3 P-0|R( 3, 3P*nlRU,?| FPORIOAn 

DlR(7,?)=l)TRI3«31*0IR( 1,1 I-0IRI3.1 )*I'IRM ,3) F7CR104S 


l)IRI2,3)=DIRt3,l P9DIKU ,2 l-OIRI 3.2P«0IR(1 , 11 
00 l 1=1,3 

nuMxn i = Y m 

OllMK ( 2 J tY | I ) 

OtPMX ( 3 1 = Z 1 1 ) 

DO 7 J=1 ,3 
OIPMX ( J | “0 . 

DO 3 K= ) ,3 

3 DLPNX ( J P=OUNX{ J,K1«[)UMX{K) 

Z CONTINUE 

XI I >e[)(|NXU ) 

Y( I ) = I)1JN X 1 2 | 

] Z<n=Q(JNK(3) 

OO ft 1-2,3 

XD( 1-1 P«X( I )-X(l) 

YCH 1-1 P»YM >-Y!l I 

ft Zfifl-l )•/{ I I-ZM ) 

RETURN 

END 


F^ORTOSt) 
F 7 C ft T 0 r i [ 
F7CRT0S2 
F2CRT053 
t7CftT0*}4 
E7CRT0S‘j 
E?CKT0 < >6 
E7CRT097 
I-2CR ro8H 
F7CRTCSS 
F ?CR TflftO 
FFCRTCftl 
“■ZCRTOft? 
E2CK 7 Oft'i 
<r?LV F Oft4 
F7CRT0S5 
F7CMT066 
F2CRT0A7 
F7CRT068 


Table VII-21. Source program listing of 
subroutine CUTE {Link 2) 


* LarFl 

CE2CIJT FZCUTOno 

SUBROUTINE Cl PI n 1ITTM) F2CIJT001 

C CUTS giJADRI LATERALS AND HEXAHEDRONS INTO TRIANGLES AND 1 E TWAHF-F1RNS1 7011700? 
DIMENSION !A(1 ) ,AA(1) ,S(1 ! .N|«] , D? I (21 P ,033(3,31 ,E22( 3, 31 F7CUIOD3 

1,P(24) ,UY(J4) ,X<fi] ,Y|ft I ,2(ft),XD( 7) ,YUI7 P, 2 OF 7), til () I F 2C0T 0A4 

COMMON I A . A A F?CHTOftS 

EQUIVALENCE I I A, AA) , (D21 ,D33), tl)71 1 101 .F??}, M)7U19) ,E), I07H20) ,roF7C(P70Dh 
EQUIVALENCE llA(l),lNI,(IA(7),]ftN).MA{3),IT).IIA(4),|p).nA|Sl, E2CUT0ri7 
I 1PRSI ,( 1A(6I , I TYPO. IIA(7|. I MAT) , | IA(0>, I OFG > , t 1 A ( 9 ] t INX ) , | I A ( 10 J , H7CUT00H 
7IH) , U AMI I . ID , (IAI12I ,1MMXP , ( IA(13),|MMY| , ( IA( 1U , IMMZI ,( )A( IS! ,F?ClJ10r)9 
3IMFI 1 , I I A ( 1 6 ) . lAftE!, I IA| 171 , N < I) I , I i A I 2 'i I , M I > I T A I ? ft I , I T Y } . (I A ( 27 ) , F 2CUT0 1 0 
4ISTRP ,UA(2P>, LFLT), I lA(29).nr-M| t ( |A(30),1TTC> MIAI31 1 MMET) , E7CUT01 1 
31 IAI 32), J SUM). 1IAI 33P » 5MO, I T AI34), IMS), f I Af3ft), IOSP ,( IA t 37J , F2C.UTni2 

6ICIKDI , (IA(3B)f I OR 1)1 1 ,< IA(39) ,ACEL ) . (I A I 50 I . J1 ] , (I A I -jl 1 . J? ) , r?CUT0)3 

7tTA( 52},^3), I 1A(D3),J4), < JAI4AP .J51, ( IA(55) ,.Pft), I IAI5A),.I7P , tTAC>7F?CllT()14 
B) , Jft I , UA( 50 ) , JTY). 1 1 A(59P , IBB ). llAIftO) , I Bt) ) .{ I AIM ) .1 1(1) .IIM62) ,F2CUT015 
9IIA), MAI63P, IDT), II AI64), TUY). | IAI65I , JTF),UA(Al) . ITAP) E2CUT016 

EQUIVALENCE t lA(lSfi) ( ICAR) . (1A((S7I , ICIX1 . ( J A| bPI f ICIY) , ( IA(ft9). F-7CumiT 
1 [CIZ),I IAI 70),icri ),( [A|711 1 IXXJ,{U|72).|YY|,| 14(731,127), F-^CUTDl a 

21 IA( 74 ), | |C 1 , M A 175 1 . I DEF ) . (IA(7ft) . I S T ) . I I Al 77 I . IT S I E2CKT0 l >9 

3, ( 1A< 7fl ) , If,FM |, ( FA(79) , IERW ) , ( AA ( 80 1 , Tt : J , 1 A A ( H 1 ) . OT I . < A A l A? ) , DC ) . F2CuTn20 

41 AA( B3 ) . AL1 P . ( A A 184 1 . AL2 ) , ( A A I 83 I , AL 3) , I AA(Sh) ,T)21 P , (AA( 1(17] ,P) , r2CUT0?l 
51 AAI 131 ),UV), (AAT t 55P ,X|, (AAI lft3),Y), IAA( 171 P ,2) , ( AA( 179) .XDI . F7CIJTD22 
MAAdOft) ,Y0 ) , [AA { 193) , Z0> , I 4A ( 351 ) ,S ) , < AAf 40 ] . /GEM I F2CUTC23 

7 t (AA(42 1, IMP > , (AA(43l , [P0GP . ( AA(44) , IPFNl, I AA I 4b 1 ,CC1N.S), I A A I Aft I , 1 OF 2CI IT 024 
ft) . |AA I 47 J ,G1 ) , I A A! 4ft 1 ,G2 > , I AAI49 J ,G3 ) F2CI1T075 

EQUIVALENCE I I A ( 349 ) , NT I C > , I I A( 34« J , I SOT I , ( I A | 347 } , ) SOY ) , ( I A I 34ft > F2CUT076 
1 , I SOZ 1 , ( I A t 34 5 ) . J9 ) , I I A I 344 ) , J 10 I t ( ] A ( 343) ,JFRSl , MAI 347), JSDY) F2CII1077 
?,t I A ( 34 1 I « JSD Z I , < IA( 340 P , JARF ) , ( l A ( 339 I , JMHX I , I I A) 3 38).JK*YI I2CUT07A 

3, ( 1A < 337 ) , J MM J ) j f |A(33ft) , JMF 1 I , ( I A( 335 ) , I T AS ) , ( I A ( 334) . IF)Z ) F2C1JT079 

4, ( 1 A t 33 3 I , I PR ). 1AAI 332 ) ,DGY ] , ( AA ( 33 l J , 0G7 I , t A A I 33D ) . PRF! S I F2CUT030 

5, ( lAf 32 9] , IP Ift J ,C I Af 320) ,N4V) F7C(PTn31 

DIMENSIUN NF1QI20] F?r.uro3? 

EQUIVALENCE ( AA ( 300 ) , NOD ) . (I A ( 326 ) . I MS T ) F7CUT033 

NAV=NAV+1 E2CUT034 

E2CUT035 

KNOO=0 F7CUT036 

IF IIELT-LQI 110,1 20 , I 1 □ F2CUT037 

110 It IM=2 F2CUT03B 

l«S=3 F2C<iTfi39 

J£N=6 F7CUT040 

IEN=1 F2CUT041 

GO TO { 1 30, 1 30,1 1 5 I ,NAV F^CUTO*? 

115 XRAS= 1 F 2CIP P (14 3 

00 TO 130 E2CIIT044 

120 I TTM=5 E2CUT045 

I MS=4 F2CUT04A 

JEN^20 F2CUTD47 

IEN=2 F.7CIFT0 48 

GO TO (1 30, 130, 1 75 ) ,NAV F7CUT049 

125 KRAS=4 F?CUT05t> 

130 1ELT=I6LT-1 F?CllT051 

IDS=IMS*I0EG F7CUT052 

DO 400 J=1,JEN F7CU1U53 

knooj=kndo+ j r7r.uro6<* 

GO TO ( 1 flO. 1 90 J . I EN K2COT055 

160 GO TO (210,220, 230, 230, 240. 210), J E2C(JT05ft 

190 GO TO ( 210, 240, 220,270,230,270,240.250, 240. 2«n, 250, 270, 220, 250, 2S0F2CUT057 
1,270,220,240,250 ,270) , J E 2 CM TO 5 B 

210 K6ASJ“KBA$+1 F7CUTD59 

GU TCI 310 E2C1JT0 ftO 

220 KBASJ =Kfl AS+2 F2CUT0AI 

GO TO 310 E2CUT067 

230 KSASJ^KI4AS+3 F7CUT063 

GO TO 310 F-7CIIT064 

240 KHASJ*KUAS+4 FZCUTOftS 

tit) TO 310 F2CMT0ft6 

250 KRASJ=KBAS+5 F2CUT0A7 

GO TO 310 E2Curnft8 

260 K&ASJ=KBAS + 6 r?cinOft9 

GO TO 310 _ F2CUT070 

2?C ♦ 7 F2CUT071 

GU TO 310 F?CUT072 

2tiO KRASJ- XBASES F7CUT073 

310 IF I KB AS J— I MST ) 330,330,320 h?Ctlin74 

320 KftASJ-KBASJ- IMS! TZCUTOTS 

CO TO 310 E?GU1(17A 

330 NUIHKNODJ P=N(KBASJ) F7CUTfl77 

400 CDNTINUF F2CUT07R 

500 CONTINUE FZCUT079 

RETURN F2CII1 QftO 

END F ?CUT OR L 
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Table VII-22. Source program listing of 
subroutine DARN (Link 2) 


* LABEL 

£4:2 URN E?D«NOOO 

SUBROUTINE DARN IKS iKEJS.CCC.KOE I f-?DKM001 

£ PftEPARFS INFORMATION RELATI'I) Ml TO CONS 1 ft A 1 N I S H)R ASSEMBLY F?rjRNQ02 

DIMENSION U ( | ) ,aa( U ,S l II ,ft|P> ,021121 I ,033(3. 31 ,E??I 3.31 I 7DKN0D3 

1 ,P<?M,0VI24I.X<H>,Yt 8 4 . 2<8),X[H?] ,YD|7| , 2 0 1 ? I.C.l III F2URN004 

COMMON I A, A A F?f)RN0f15 

EQUIVALENCE (I A, AA), 1021.1)33) ,(021 U<U,F22) , < 021 ( 19 ) ,f I , < n?l I 701 ,G1 PPIlRNDOb 
EQUIVALENCE M A( 1 ) , IN I , I I A I 2) , HIM) , ( I A(3). I T ) ,1 JAt4],JP),[lAIS), FpQRNOn? 
1 ! FRS) , I I At 61 , 1 TYPE I ,( |A(?) , J MA T ) . ( I A { B 1 , IDFG) . {] 6 t <3 > . I NX ) . I T A I I O I ,f?nPNnQR 
? I H I , ( 14(11 |,IH).IHIL2I . IMMXI, I I A I 1 3 1 • IMMY) ,( I A ( J A I . I MM7 ) . ( 1 A ( 1 5 1 ,F?ORNOC1«4 
3IMH),(IA(16).HRCI,( I A t 1 7 ) , N < l!l.MM75l*")f( lAt26)»ITY)*tfA[?7| ,F PORNO 10 
4| SIR | , | I A ( ? R J , I L L T | , I JAI 29 J , I IFMI , (HI 30 ) , I 1 EC), I I A I 31 I . IMF T) , F2DRN01 1 
SI H ( 32 ) . I SUM), < I A ( 33 ) . 1 NO ] ,4 I M 34 ) « I MS 1 , 1 I A ( 36 I , 1 OS ) * [ 1 A I 37 ) . F2F1P.N01 2 

MURD] ,<IA<3ft] ,rnRDl 1 , (I A( 39 ) , AC EL ) . t I A I 501 , J1 ) , I I A I 511 , J?) , FPDRNO) 3 

M I Al 521,. 13) .IIAI53I , J4) , ( l At 54 I .,151 , < I At 55) ,JS| , ( 1A| 56) .,17 I , ( 1 A f 57 EPORNfl 1 4 
HI 1 Jfl),( I A ( 58) , JlY), I I A I 591. IRK), { IA(60| , 18tl}, U A I 61 ! , I ID) , I 1A ( 6? ) ,F PORNO) 5 


91 U) , ( lAIA3).fOT) , | IA(A4| t H1Y) . MAIM I . 1 IF) , II A I 41 1 . 1TAP) 

EQUIVALENCE I JAIAISI, ICAR). I TAEfi'H , itllXI . I HI 6 H), 1C IY), M 4(69] , 

1 ICIZ),( I AT 70), TCF T I .( IAf 71 ) . I XX I , I IA(7?) . I YYl , ( IA(73) . I7Z J , 

?( I A 174) , | ICI,fIA(75),l l)EF I « ( T A I 761 , 1ST ) , (I A( 77 J , I 1 S 1 
3, UAI7B) ,I£ 6 M) , | 1A[7<J| , I ERR I , (AA| AOl.TF) , I AAI 81 I , DT > , I A A I 8 ? J . DI5 ) 

4 I A A [ 83 ) , AL 1 I, IAAI84) ,AL2), [ A A ( 8 5 I . AL3 ) . 1 A A t A 6 I . 02 l).IAAI107),P), 

5 1 AA 1 1 3 1 | ,(JV 1 . ( AA f 1 5b ) < X l 1 I AM 1 63 ) * Y ) » ( AA ( l 71 ) , Z J « ( AA t 1 79 ) . XI)) . 
b| A A | l«bl ,YOI , (AAI 193 ),£!)). I AA( 351 1 , S I , ( A4( 40 ) ,ZGEM> 

7, < AA(4? I , IMP), < AA<43) , IPBG) , HA (44 I * 1 PEN I , (AAI 45) ,C(TNS) , I A A ( 4 6 ) . I UF ?[)RM0?4 
B) .(AA(47| ,G1 J ,(AA(4R}.G21 .[ AA<*9| ,G3> F 2 C)RN()?<; 

EQUIVALENCE (IAI349] ,NTJC) t M A(34fl| , ISOTI , ( IAI347) . ISOY I ,( IAE346I FPIJRNO? b 
It I Sl)7. ), (I A ( 345 > , J9| , I I A (344 > , Jl 0 I 1 I IA( 343 I » JPRS ) , ( IA4 347 J , JSQY) F PORNO? 7 

2, I HI 341 ) , JSDZI . (HI 340) , JARF) , I I A t 339 } , JMMX ) » ( H t 33 R I , JMMY) 

3, < I A I 337 1 I IAI336), JMFI I . ( I A ( 335 ) , I 7 AS ) , ( I A ( 33 /. > , { 07 ) 

4, < IAI333) .IPX) , EAAf 3321 tllFY I »( AAI 331), 00 Z ) , ( AA(330) .PRES) 

5, I I A I 32 9 J , IPIR) 

DIMENSION 1*5(25) ,CCC I (25) ,JBS 1251 ,CCCJ[?51 
E DU I VALENCE I IAI 200 ). lesi . I IA| ??5)..IBS) , ( AA ( ?50 J , CCC I J , 

1( AAI 2 751 .Ctr.J I 
I) I MENS ) I IN KRStD.CCCCI) 

1 HB I = I BB+K S 
KB= I A( IBB 1 1 

IF IKIHINO) 301.302,302 
3U2 IF (KB) 303,1,304 
304 KQE-1 

[ 1C Hi IC+KS 
CCC I I ) -AAI I 1C II 
K RS ( 1 ) - KB 
GU TO 308 
303 KUE=1 

CCLI 1 ) = ) - 
KBSI I 1--KB 
GO IU 309 

iti 1 I COMP - 1 OOOO+KS 
I NCR - 1 

00 30b ISflRM.lNP 

1 HO 1 = IRU+lSmt 

IF (XAMSFII At IB01 I )-ICOMPj 306.^07,306 
30/ IBBl=IBB+l$OR 
I ICI=IIC+IS0« 

KBSI INCH ) - X AHSE I I A ( IHB 1 I ) 

CCU I NCR ) -AA ( IIU I 
lNCk=INCR+l 
306 CONTINUE 

KOE=lNCk-l 
30a RETURN 
1 KQF -0 

GO Til 3t)fl 
END 


FPPRN01B 
F20RNO17 
EPFlftNOl H 
F 2 UR NO 1 9 

'rPORNDPO 
F ?ORNO? 1 
F2DHNBP2 
E20RN023 


F ?nRN(17 R 
FPORNO?9 
F 2 OR NO 30 
F PORNO 31 
r?HRN037 
4" 7DRND33 
F? OR NO 34 
FPPRN03S 
FPORNOl/. 
h?l)RN037 
E PORNO 3H 
FPDRNOT^ 
F PORNO 40 
FPDRN041 
F?ORN042 
F PUKNO* 3 
r PORNO 4 4 
E? URN 04 5 
F70RNO 4f. 
EPORNDA? 
F7ORN04B 
F PORN 04 9 
r7l)RN0Sr> 
F : PORNOS 1 
rp!V>N05? 
P20RN053 
F PORNO 54 
F20RM055 
F? OR NOSA 
FPORNOST 
F? OR NO SB 
FPORNOS9 
FPORNObO 
FPORNOA! 
EPDRMOb? 
F?l)R w D/,3 
F^0MN044 


Table VII-23. Source program listing of 
subroutine DMM (Link 2) 


* label 

CE20MM 

SIJBKOUTINF PNM |A,fl.M t £l 

c OBTAINS THE RRnr.UCT OF FLFmFwT STIFFMFSS UATRfX I IMPS a VECTOR 

OIMFNSION All } ,ftl 1 I ,CI 1 > 

DO 10 1-1 ,H 
ISS-l-H 
01) 9 K-O 1 M 
I SS = ISS+M 

<i r.(l )«C( I J+M E S s ) ■*!• (K) 

It) cijntinuf 
rfturn 
END 


F?OM m OO0 
F 7 DMM OO l 
F-7l)MM(Tf>? 
f?r>MM003 

F70MM004 
FPDRM005 
EPOMMOOb 
FpMHMOOT 
r ?i)M«noR 
F7DMM009 
FPDMHDI O 
FPO^MCl 1 


Table VII-24. Source program listing of 
subroutine ELDI (Link 2) 


F 7 F 1.1)000 
F2FL0001 
F?FLrirt02 
F?Finno3 

FPFL0004 
F 7 E LOGO 5 


v LAB r. L 

CE2LL0 

SUBROIfT INF FLItI 

r. OBTAINS UNIT VrCHlR OF PRESSUHF FOR L1NF FIFNFNT 

DIMENSION (All I ,AA(| )»SI l |.N(B1 .071(21 ) ,0331 3,3>,F??tT.3l 
i .P(24) ,UV( 24 ) , X I R I * Y ( H 1 ,Z IX) . X D[ 7 ) ,Yt)(7) ,Z 01 7), 01(1 I 
COMMON I A, A A 

EQUIVALENCE ( IA,AA J , f DPI ,1)331 , ( 02U 10 I .EP? J . I 0P1 [ 19 I . E ) , (021 ( 20 ) , G 1 F ?F L [)0O6 
EQUIVALENCE ( I A ( l I , I N I , { I A ( 2 I , 1 Kf* J . II A ( 3 ) . I T ) . I 1 A I 4 I , 1 P I , (I A < r r ) , F2EL0D0 / 
1 I ) , I 1 A { 6 ) , I TYRE ) , (IA17) . I *A M , ( J4{?) , I OFF) »{|A(9).l»)X|,(IAnn] , C -?F LDOOK 
?IHI,(lAlll).iF)dlA(12). I MMX I , ( I A ( 1 3) , | M4Y) , {! ft (I 4 I , I MmZ ) , I l A I l 5 1 ,«-?l LUn09 
3 I Mr 1 ), ( I A I 161 , I ARE >,U A I 17 I ,N( 1 >1 , (I A I 25 1 ,K) ,MA(?6> , ! T V) ,( IA( 27) ,F2EL0050 

4 1 S T R ) , ( ( A I 7 H I . 1 1 L T J . I I A { 29 > , I T F M ) , I I A 1 3 0 I , I T I C ) . I 1 A ( 3 1 ) t I M F 1 I . FPFlOOU 

5 ( I A ( 32 ) , ISOM) , 1 1 A( 331 . IND) , I T A ( 3 4 ] , 1 MS ) . I I A I 34 ) , 1 HS 1 . I T A I 3 / I » F2FL0C12 

6I0R0) , ( IA I 3R J . I (1RD1 I . I I A| 39) , ACFL ] , f I A ( SC 1 , J 1 I , ( I A ( 5 1 1 . J2 ) , F7FLD013 

7( l A ( 5? ) , ,13 ) . ( I A I 5 3 I (.14] ,( I A ( 5 * ) . J*>| . ( HI 55),J6).( I A ( 5 6 ) ,071 . ( IA(57r?FL0fil4 

, JB I , I IA(5H) . JTY ) . ( I A I V>). I BK) , ( U ( (,(1 ) . I HU 1 , ( i A ( 61 ) , II n | , ( 1 A ( U? \ . T 7F L BOl 5 

- F2EL0016 

FPF LDQI 7 
FPELOOIB 
F2EU7019 
F2FLr)n7(l 
E2F LOO? I 
F2FLD02? 
E-7FL00P3 


<?I I A) . I U 1631 ,1DT ) , t I A < 64 ) , IfW) • I I A (65) , 1 IE) , 1 I A ( 4 I J . 1 TAM ) 

EQUIVALENCE: I [ A (66 I , ICAR ) , f! A I f.7 I , TCI X 1 , I I A I *R > , JC I V I , (I A I 691 , 

1ICIZ) , (IA( 70) . ICF 1 I ,( IA(T1 ) .IXX) , ( EAI 72). I YY > , UA(73> .17? I . 

?( 1AI74 ) , I IC ) . UA( 75) . 1IIHF I , ( i A ( 76 ) , I ST > , I T A I Cl 1 , I I S ) 

3, ( HI 78) , I GEM I , ( HI 79 I ? I ERR) , ( AA ( BO } . TF > . I A A I Bll , U f I , < AA ( 8? ) . DC ) 

4( AA(83) , ALl I , ( AA( «4) , AL2 1 , I AO IBS I , AL3 ) . I A A ( B/i I , 021 ) ♦ I AA ( 107 I , Rl , 

5( AA (1 31 J ,UV) , I AA ( 155 ) ,X ) , I AO I lf.1) f V) . I AA( l 71 I . Zl , ( AA( 179) .KIT) , 
h(AA(lfl6| , YUJ , ( AA(1V31 .ZO) , |Ad(3Sl),S| , (AA(4(]J ,7GFM) 
7.(A6(42J,INHIplA0<43),I PUG \ , ( A A ( 44 ] . 1 PEN I , (AAI 45 ) , CONS 1 , (AAI 4M , IUE2F L[»0?4 

81 , ( AA(47] ,GL ) , ( AA (4H) ,G2I, I 00 (49] ,&3) F ? F I, Dfl ? 5 

EOU I VALFNCF { 1 A ( 349) , m 1 I C 1 . E I A I 3*R ) - T IDT I . < I A1 347 1 , 1 SOY ) . It* ( 3*6) F7ELD026 
1 , I SDZ ) , I 1 A 1 345 ) , J9 1 , ( 1 A( 344 ) , J 10 ] , ( I A ( 34 3 I , .IPRS ) , I H ( 34? 1 . .ISQY I E?tL00?7 

?,( H(341 ) ,JSnZ).UA(340I.JAKFj ,1 HI 339) . JMMX ) , ( I A ( 33 R ) , .IMMY ) 

3, ( EAI 33/1 , JMMZ 1 , ( |A(33A),JOFI ), I1M335I»TTA5),I 14(334). (DPI 

4, ( 14(333) « I P R ) , ( A A { 3 3 2 ) i HG Y J , (AAI 331 1 ,00,7 1 , (AAI3301 , RR F 5 J 
5 , ( I A I 3?9> , IPIR) 

DIMENSION A (6.6 I ,01 KE 3,3) , I >VG {! 2 ) . T ( 6 > . Ml) ( 3 ) , PN I 3 I , DUG ( 3 J 
FOUI VALFNCl I AM 200 1 , A ) , ( A A [ 2 3b 1 , EL 1 , E AA ( 7 3 / 1 . A Hf A ) , ( AA ( ?38 I , II I r?EL0n'J3 

L , ( AA ( ?39) . JJ } . I AA( 24C ) , IR ) , I 001 ?41 ) , JH ) , I AAI ?47) .NY 1 , I 00 I 2b4) , IJ IR ) F? ELOD34 

7, IAA( 3UM ■ (JVC ) , EAA( 291) , PDI , I AAI P94 ) , HN) . f A A I 297 K DUG I , ( AA ( IDO 1 . f lEPELDOJO 
FI. = SORT F t X (l ( l HXOU 1 + YD ( 1 I *Y U (1 I *1 U I 1 ) *7 [>( l) ) "‘ ,e ‘ f ' A ’" 

if (ri.i hjiopioio.iio 
110 ELI- 1 -/EL 

T ( L )=Xnil ) *FL f 

I 1 3I=Y0U )‘ELI 
T| 5) = ZDH )*FLi 

PN(1 ] = DUU( 2 >*T I 5 J-nuGOHT (3) 

RNI 2 ) =D(JG( 3)91(1 )-OUG( 1 >*( (5 ) 

P N ( 3 ) *1)1 15 1 L ) AT t 3 J-IHUil 2 I *T ( 1 } 

VELsSQRTFI PN( 1 |*PN( 1 ) +PNt 2H p N( ? I +PN I ^ 1 «PN I’ll 

II ( VLL- . 1 E-4 ) 220.220.230 
220 PkES=0. 

GO td inoc 
230 VEL I -l ,/VFL 
IK) 300 1 = L , 3 
300 PN ( I 1 * P N I I HVFLI 

put 1 )=T (3M f PN(3)-T (8 JOHN! 21 
PD (7 1 =1 I 5 )«PW( |) -T| L )*PN ( 3 ) 

P0( 31=71 I I *PN ( 2 ) — 7 1 3 ) 9PN ( 1 ] 

VEL 1=1 .XStRlElPDm^Pnd J+PD(?HPni2l+PDI3)*PIH3) ) 

DU 400 1-1(3 
4U0 EDI I )=PD( 1 HVFLI 
REDO KET'lRN 
1010 1 FRR= 1 

Gfl TD 100(1 
END 


F2ELD0?A 
F2ELD029 
F?F LDO 30 
C 7 V 1.0031 
C2E:U)03? 


F2FLD036 
E ?F LD037 
F?! 1 1 1)038 
FPFI.n039 
F?FLD04f1 
E7FLI1041 
F 7FI.DD47 
F2FLI1043 
F ?FL 1)044 
F2FLD044 
F?fLD046 
P2FL0047 
E- 7F I.D04H 

F7EU1U4S 

F 2 1: LUO 40 
F?El.PO‘>i 
F2FL0052 
FPFLEJOSi 
T 7FLD084 
F'7E t. DO 85 
F2FL 1)086 
P2FLQ057 
F PEL 005 B 
l : 7 F|. 1)085 
F7Fl.n(160 
F ?F. LDO/il 
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Table VII-25. Source program listing of 
subroutine PIBE (Link 2) 


LABEL 


CE2PLR f-PML^OOO 

SUBROUTINE PLdfc f-^1M_B001 

c gi-neraies suamatkices for rlfm-nt type* ^ ami 4 r^PiRon? 

DIMENSION I# I 1 I , AAI 1 t,S(l I.Ntfl) ,021 l?l I ,033(3,31 *F^^f3r3l C-7PLR00 3 

1 ,P| ?4] ,IJVI24> ( xiM . Ytftl ,7_l 91 ,XPm ,YI)(7 > ,ZW 7P ,G1 tl) E?PLRn04 

COMMflN !A,Aft P?PLR0IY5 


EQUIVALENCE I U ,AA ) , (1721,1)3 3) .(1721(101 ,F?7) , 11771 I im.H , in?l 1701 ,G7F7P|.Rfl06 
EQUIVALENCE IIAII),INI,(IA|?|,IRN},MA(3P,T7I»( I A ( 4 ) , I P J , I I A I 5 ) , F?PUinn ■/ 
1 1PRS1 . ( 1A(M , ] IYPF I , ( IA(71 ,I*4T1 ,( IA(M) , It>FG), ( I A ( 9 > , I NX ) . [ I A < 1 Q ) ,F?PLROnB 
7]H),[|A<in,l»|.llAll2l. 1MMXI , ( IA(13] , IMMY), [ 1A (14) , IMMZ) , MA(16| ,F?P«.R(709 
31MFI) ,H Af Ihl , IA«M , ( 1A( 17J ,M( 1 I) , II ,M) ,(|A(?A) , ITY), [ I A ( ? 7 ) , F2PLRO 10 

4TSTR I i HA12P) . IFLT P ,( IA(?9J . HEM) , ( IA<30), ITIC), (1A<31 ) ,1MFT) , FPPLROl 1 

5< |A(32),1$(.'M), M 4(33), I MO } ,1 ! A 114) , 1 * S) . I 1 A (361 . IDS ) « I UP 371 , F2PLRP1? 

AJURfll , I I A I 3R> . I ris>01 ) , (I A ( 39 } . AC FI ) . H A ( SO ] , J M , I 1 4 I 5 1 1 , J? ) , F7PLWIPI 3 


?( |A(5?},J3). I1AI13I ,J4] ,( |A( V. I , J5) , ( 14(997 . J6| , ( I A! VO ,J7) . (I A ( 5 7F 2PLRO 1 4 
H) ,J8| , I 1AJ9RI ,J|V) , t IA(9y|, IRK), ( IA(60P , IftO), I UIM ), I UK, I !M*?I i F ?PL8nl 9 

41 IA> , I 1AI63I , 1(71 ) , I 1IU44P , IUY) , t I A(65) , ITF> , (JA(41 ) » |TAP] F2PLRP1A 

GQP/JVALENCF IT A(66 | , ICAR ) , (I A| 67] , TCI X I . < IA(6fl),iClY),l f M69I , E7PLBOI / 
HCllI , (14(70) .1CFI I , < JA(?l), I XX) , (14(7? I , IYY), (I A(73l , T7Z). F7PLRO] H 

7( IA(74),JICP,(IA|7&),It)eF|,(IA( 76), 1ST I, (IA( 771*1 IS) F?HLAt)19 

3,1 I A I 78 > » l GEM I , I I A ( 79 ] , ll-RR.1 , ( AA ( BO > , TF I , ( A A ( B1 ] , DT ) , I A A ( A? ) ,f>f. ] . F2PLR070 
4< AA ( 83) , ALII i f AAI«4),AL.7 », I AAI 85) . AL3) , ( 6A( B -b > , DPI J , ( A A (10? I , P} , F7PLB021 
9(44(131 ) ,IJV| , (44(155) |X> , I AA()63) ,Y) , (AAI 171 >,/], (AA{ l?y}.XI>> , F?P LRU? 2 

6 { 4 A ( 1 A6 } • YD I , (AA| 1 93 ) , Z 0 ) . ( A A ( 3 A l ) , S ] , f A ft [ 40 I . ZOFM) F ?PL R023 

7, [AA (42 ) , INP } , (AA ( 43) , | Pftf) > , I AA (44 ) , JPFN| t ( A4< 45 > , CONS ) . (44(46) , I(lF?Pt.R0?4 
»} , I AAI47) ,01 I .( AA(4t(>,G2) , I AAI49I ,r.3) F?PLB(7?5 

EUI) J VALFNCF I i A I 349 } ,N U C | , < I A ( 34fi 1 . 1 SOT I , < I A< 3*7 p , ] SR Y I , ( 1 A ( 3*6 1 E2PLR0? 6 

1 , ISOZJ ■ ( IA(345) ,J9) , (14(344), J10I ,f IAI 34j| ,JRRX), ( IA(34?>,JS(IYI E2PLR07? 

2 • f I A [ 34 1 I ,JMl2 1.4 t A I 340) .JAKE ) . I ] A I 389 I .JrtMJU . ( I A ( 33 ft P .JMPYP F2PtRn?8 

3, f 14(337 P ,JMMZ>, MM 336] , JMF] ) , (I A ( 335 ) , T T AS > . 1 1 A ( 334 > . T 07 J r?PI,R0?9 

4, { IM333I . I PR) , IAA< 332) ,0r-Y) .(AAI 33 IT, nr;? ] , { AM 330 I , PRES ) F2PLB030 

5, (1A<329) . IPIR> F?PL«^31 

DIMENSION At A, 61 .i)IR{3,3) ,UVr.M7> .11 A) , PM 31 ,PN(3) .DUG I 31 FPPt.Bfll? 

EQUIVALENCE ( AA 1 200 I ♦ A j , ( AA I 236 I . EL } . ( A A ( 737 ) , AREA J , ( AA ( ?3fl P , IT > F7PLR033 

1 , (AA T?39l ,JJ J , ( A A { ?40 P , I R t , ( AA ( 24} I , .IR J , [ AA ( 74? I ,NY J . I A A ( 764 J *0 f R ) F 7HLH034 
?, (A4( 306) .(JVC}, (4A( 2911. POP ,( AA(294>,PMJ , ( AA(?97| ( A A ( 300) ,TPf?PLR035 

IF (JMHXP 1010,1010.130 F2HLH036 

130 ICJXJ=ICIX+JM** F2PLR037 

IF (.IrtrtYl 1010,1010,190 F2PLR03R 

15ft IC1YJ=IC IV + JrtHY IT ? PI. HO 39 

IVO A| 1,1)-12. 4=F»AA| ICIYJP/(EL*Y3} F2PLR040 

Al 1 ,2)»-A( 1 ,1 I 

A(7.2)-A( 1,1 } F2PLR042 

AI2,5)=b.»E*AAI IC1 YJI/(FL»v2) L2PLH043 

A I ? . A ) ”A ( ?. 9 > F2PLR044 


A I 1 . 5 > -—A (2,91 
A( 1,6)»A( 1,5) 

A I 3,3) ~G#AA ( IC fXJ P 7FL 
A ( 3, 4 ) *-A ( 3,3) 
AI4»4)*AI3,3) 
AI9,*>)»4.*f4AA( 1CIYJ I/M. 
AIS./O*. 9*419,5) 
A|6,6)=4I5,5] 
on 2oo i - 1 , a 
00 POO J* 1 , 6 
2017 A(J, I )-A| I ,J) 

1000 RETURN 
1010 1FRR=1 

GO TO 1000 
FNO 


! 2PLH04S 
F?PLAn46 
F2PIB047 
F2CLR04R 
E2PLR04V 
F2PLR050 
FPPLHOSI 
F2PLR09? 
F?PLHnS3 
f 2PLK094 
F2PLH09& 
E2PLR05A 
r 2PI P057 
f ?PL R05 fl 
F2PLH099 


Table VII-26. Source program listing of 
subroutine RLOC (Link 2) 


* LABEL 

«2KLC F2RLCOOO 

SUBROUTINE RLUC F2RLC001 

C AUDS SU8HATRICFS TO FORM ELEMENT STIFFNESS MATRICES DF LINE EL EKNTE2RLCfJ02 
n I HENS ION IA I 1), AAI LP,SI 1 ).NI 81,021 (21), 03313, 31 ,E22(3,3> H?RLCom 

1 ,PI24) ,t>V(24),X|SP ,Y(8),Z(8) , XU( 7 J ,Y(M 7 ) T Z [7 1 7 I , G1 (1) E 2 ttLCl>n 4 

COMMON 1 A i AA E?RLCn05 

EQUIVALENCE UA.AA P , (021 ,033) , ( D2 1 ( 1 0 1 , £22 ) , I 02 1 I 1 9 ) , F P , I 0? 1 I 20 ) ,G)F?R(.COr)A 
EQUIVALENCE (IA(1), IN), (IAI2l,r BN ),(IAI3>,m.(IA(4], iP|.nA(5l, F2RLC007 

1 IPRS ) , I 1A 16) , I TYPE I , (IA< 7} , |MiT) , (| A(fl ) , lUFli) . (I A I 9 } , I NX I , ( l A ( 10 ) ,P2RLCf>08 
7IH) < |JAI11 } t IA),{[A(L 2I,I MMX) , I 14(73). IMMY) , ( I A ( ) 4 ) , 1 MM2 J , ( J A ( 1 8 ) . U ?RI C009 
3 IMF | ), | ] A( 16 P ,1ARE P ,1 IA(17l,NU ) ) , I I A t 2 5 I , M | T ( } A ( 26 1 T I T Y P , I I A ( 2 7 I , F 7RI.C01 1» 
4J STR) , ( I A (28 P , I F L T ) , I I A( 29] f ITEM) , ( I A ( 30 ) , 1 TI C > , (I A ( 5 I > , 1 MF 1 ) , F2ALC011 

51 IAI321 ,I5UMI ,(1A(33), IND) ,nAOA},lMS>.[IA(36P.II>M,( IAI37) , E2RLC012 

6I0RD] , ( IA(3tn, ICMD1 1.1 I A I 39),ACEL i , ( I A I 50 I , J 1 ) . (I A ( 5 I) , .1? 7 , E2RLC0I3 

7( I A 152 I , J3>, ( I A I 53) , J4 ) ,(14(94 J , J5I , (I A! 59) , ,16), I 1AI56I . J?) , ( |4<57F2RLC01* 

BP , JB},( IA(5fl).JTY} T ( |A(59I, IftB) , ( IAI60P, IRO), (I AI6L), HD) , ( IAI62) .E2RLC0I 5 
91 IAI , I JA(ft3) , 107 I , ( ]A(64), IDY) ,UA(65I ,ITFP , ( IAI41) . I TAP) E 2RLC01 6 

EQUIVALENCE ( I A (6ft ) . JCAK> , I) A ( A7 I , I C 1 X P . IJ A I 6R ] , I C I Y I . < I A ( frSJ ) , F7RLC017 

11CIZ},MA(70P, ICFJ ),IIA( 71 ),|XX),( i A ( 72 ) , 1 YY P , ( I A ( 73 1 , 1 2 7 P , F2RLC01B 

2MAI74), I IC), IIA(751, lOEFl. I IA(76J,ISTP, (TAI77I. IIS1 F2RLC019 

3 , I 1M78! .KiFHI , ( 1 A ( 79 > , I E RR I . I AA I 80 > . Tf 7 , I AA ( HI P ,0T I , ( AA { R2 ) T pr.) , F?flLC020 
4( AA((I3). ALT }, (44(04 ),AL2},(AAf 851 ,AL3). (44(861,0?)), (44(107) ,PP, F?«LCn?l 
5(AA()31 J ,UV) , |AA(15S),X) , t AA( I63),Y) , tAA(171 ) ,Z ) ,( AA|179),X0), F2RLC07 7 

6(44(186) .YD), (AA (193) ,2()>,(AA( 351 J ,SP , (AA(401,?.GFM) F2RLC023 

7 , (AM 42 1 , 1NP } . I A A | 43! , IPBO ) , [AA( 44 ) , I PEN) , I AAI 481 ,CflNS ),<AA(4 6),IllF?RLCQ?4 
8>, I AAI47I ,G1 ), < AA(48|,G2) ,< AA(49),G3P F2RLC025 

hOU I VALENCE (I A ( 349 ) , NT 1 C ) . (1 A I 34H } , I SDT ) , I I A { 3*7 ) , I SDY I , (I A I 3*6 ) L2Ri.Cn?6 

l , ISIJZ ) , ( J A( 345 I . J9} , ( IA( 344 I . J 1 0 ) , { 1 A ( 343) , JPRS ) , t I A ( 34? > , J SUY ) F 2RLC027 

2, ( I A (3*1 ) , JSOZ I , ( }A( 3401 , J ART I , I I A ( 339 I , JNMX ) , I ] A ( 3381 , JMKYI E2RLC02B 

3, ( I At 33 71 , JHHZ } . I I A ( 336),vlMF| ), [ I A( 339 1,1 IASI , ( |A(334) f I f>7 J F2RLC029 

4, ( I A ( 333 J , 1 PR ) , I AA I 332 ) , l>G Y ) . ( AA < 3 3 1 1 ttltiZ) , I AA I 330) , PRFSJ E2RLC030 

5, ( J A t 32 9 P ,IP|R) F2RLC031 

01 HEN$ I ON A (6,6) ,0IR (3.3) . IJVGC I ?. ) F7RLC032 

EQUIVALENCE t AA 1200) ,AJ » tAA(236l tEL ) , I AA(237 I .AREA I , ( AA ( ?3 R ) , I I I F?«LC033 

1 , (AA (239 I , JJ ) . (AA (7401 , I R ) , I A A ( 2M ) . JR I , ( A A I 247) .NY ), I Aft 1 106) ,(IVG 7 F7RIC034 
2 , ( AA ( 264 1 , D 1 ft ) F2RLC035 

I JM=IJ+NY— l f?RLC036 

J J N- J J+NY- 1 F2RLC037 

lf(E-t JR-J.I)*[DS + IH-| I F?RI,r03n 


L-I.JJ~?)*IOS 
no zoo j = jj . j jn 
L- L.+ I OS 

DC 100 1=11, IIN 
LR*Lf 1 ilKt 
SI LR) -A I I ,.17 
tUO A I ! ,J)tQ. 

200 CONTINUE 
RETURN 
ENO 


F2RLC039 

F7RLC040 

F7RLC041 

F7RLC04? 

F7RLC041 

F7RI.C044 

F7RLC045 

F2KLC046 

F7RLC047 

E7RLC04B 


Table VII-27. Source program listing of subroutine SOI (Link 2) 


* LABEL 

P?S0L0(7D 

SUBROUTINE SOI F2S01001 

C GFNF RATES FOR ELEMENl PYPE ] STIFFNESS AN|7 LUAJ) MATRICES E2S01002 

01 MENS JON I A() 1 . AAI 1 p ,S( 1 ) ,Nt 81 .021 1 ?1 ) , 033 1 3, 3 ) , E2? I 3,1) E2S01003 

1 ,P(24) ,(IV(24),X(B) ,Y[0),Z(B] , X1){ 7 ] . Y0( 7 ) , Zl) ( 7 ) . G1 ( 1 ) E2Sfll(J04 

COMMON IA.AA F?S01t)n5 

EQUIVALENCE! I A,A A) ,1(771.033) ,(1121 I 10 ) , E22 I , < 1)7 I (191 ■ E i , (021(201,0) F 7 SO 1006 
EQUIVALENCE I IA(1),[N),(]A|2 )tI HN |,| IA(3).1T),IIA|4|,IP),[|A(S), F?SO10O7 

14(91 rlNX>,( JAnOI,E2S0100ft 
2IH), (14(11), 181. (IAI 1 2) , T MM X } , ( I A{ t 3 p , IMMY I , (1 A (1 4 > , l MM 7 ) , (I A ( L 5 I ,6 2S01(709 
31 MFD, I 1 A I 16| t JAR£ |, ( I A I 17) ,NI 1 P J , ( IA(25),M|, ( )A(26), I TV] ,< 1 A 177) ,F 2 SO 1010 
4ISTR),UA(2B).IFLn t ( IA(29), ITF=M),(rA(3Q},ITIC),( IA(3\ I.THETI, E 2 S 010 U 
5(14(32), I SUM I , ( IA( 33), INOP, ( IA| 34) , IMS I , ( I A( 36) , IDS ) , I J4 | 3? ) , F7 SO l 01 7 
blORO), (I A| 3B) , IDROl ] , I I A I 39 ) * ACFL ) . ( I A I 50 I , J1 } , ( I A ( 5 1 P , J? ) , E2Snif7l3 

7( 1AI52] , J3), (±A(53>, J4I, ( IA< SM. J5) , I TAI 55) . J6), < IM 56) .,17) , ( I A ( 8 7F2SO 101 4 
6 I , .18 ) , 4 J A I 5 B ) , JTY ) , | ) A ( 59 1 . I BH I . ( l A ( 60 ) , I BO ) , I I A ( 61 > , II I) } , I 1 A (67 | ,E2Sfllf7l5 
9HA), [ |A(63), I0T1 , ( 1A(64),I0Y) , ( 14(65), ITF), [ IA141 I , (TAP) 

EQUIVALENCE I T A I 66 I , I CAR), (I A ( 67 ) , I C I X ) , I t A I 6B ) , IC I V ) , ( I A I 69 ) , 

1 1 C 1 Z ) , ( I A ( 70 I i I CF I 7, ( TAI7J P.tXX), (IA17?) , IYYI ,{ 1A(73), IZ2), 

2UA|74J,IIC7,( IA(75) ,ll)EF I . t I A I 76 ) ,1 ST ) , t I ft t 77 ) , I I S > 

3, I IA(7K), IGEN),( I At 79), IhRR) , ( AA I 80 1 . TE ) , | AA ( 9 1 P , (7T ) , I AA I 82 I , J7G I 
4(AAIH3),ALL), I AA ( 64 | , AL2 ),(AA|R5),AL3l,(AA(86),02l)«(4All07),P), 
5(AA|131),UV), IAAM 55],X|, (4A( 163P ,Y P, ( AAI ) 71 P ,Z) . (AA(179P ,XD) , 

6( A A I 186) ,YD), I Aft I 193) ,ZD ) , I AAI 351 ) ,5 ) , I AA I 40 ) , ZGFM ) 

7, { AAI 42 ), |NP), ( AA|43 ) , IPBG) , ( AA I 44 ) , ! P E N ) , [ AA I 4 5 ) .CONS) , <A4(46) , 

B) , ( AA (47),G1 I ,<AA(4ftl ,«7) , (AAI 49) ,f,3> 

EQUIVALENCE I I A ( 349) , NT 1C), < I A t 34 8 ) , I SOT) , ( I A t 347) , I SOY) , I I A I 346 
1 , ISDZ) ,| I A 1349 ) . J9> , I I A I 34 4) . JlO! , ( I A ( 34 3 ) * .) PRS ) , II 4 ( 342) , JSOY) 

?*. I ! A ‘ S*I) , JSOZ J , ! ! i( 34C ) , JARE ) , ( Ini j , ji»r* >,114(3381 . ,)MMY P 

3 , I 1 A ( 337 J , JMMZ ) , I IA036] ,JMFI J ,( I A1335) , IT4S ) , ( IA( 334) , 107 p 

4, UAI333), | PR | , ( AA( 332 ),DGY) . t A A t 331 1 , OBZ ) , (4A( 330 ) , PRFS ) 

5, ( 1AI3?9),|PIR) 

DIMENSION 6(fc, A), DIR (1,3) ,1JVG( ) 2 > , T ( 6 ] . ?D ( 3 ) , RN( 3 ) , DUG I 3 ) 


1 , (AA(239| ,JJ),fA4 1 240), IR). IAA(74l) . 
2, (AA (3061 , UVG I , (AAI291) ,PD) , (A4 ( 296 I 
EQUIVALENCE I AA I 324) ,PRf.O) 

PLANE OR SPACE TRUS5 eLFMENT 
1PBG=0 

IF ( J ARE 1 1,1,43 
43 ICARJtlCAR+JARE 
0UC(1 l*L. 

OUG 121=0. 
oucr 3 i-o. 

CALL EL 01 

60 IF (JPRS1 80,82,80 
80 PRCO- . 5*£ L*PRtS*PlT ( 1 ) 

1PBG-1 

1PEN-3 

a?. IF IACPL) 85,90.85 
65 CQNS= » 5*EL*AC FL*AA ( ICAR.)) 


E2501016 


JPBGd 

H2Snini7 


IPEN-3 

F2S0I 0] 8 

90 

SS - E*A A ( ICARJI/FL 

E2S0 1(719 


TI2>*-Tll ) 

E2S01070 


T 1 4 I =-T 1 3 ) 

E2S0107) 


TI6 >— 7 (9) 

F7501022 


IK— IDS 

F2 50 1023 


nn in 1-1 , IDS 

JE2S01024 


lK“ I K+ J OS 

62S0I025 


oo ii j=i . ins 

E2S01026 


I S5= I K + J 

F2S01 077 

1 1 


F7S01078 

11) 

continue’ 

F2SD1029 

9 

RETURN 

R2S01030 

1 

IERR=>1 

F2 SO 1031 


GO TO 9 

F2SQ1037 


END 


JR), (46(242), NY), I Aft 1 264 } ,0 1 R I F7S0 1 034 
,PN).(AA (2971 .OUG) . ( Aft I 300 ) , T ) F ?S0 1035 
F 2 SO 1 0 3 6 
F 2SD 1037 
F ?$0 1 01 B 
F7S01039 
E 7 SO 1040 
E2S01041 
F2SO1042 
F2S01043 
F7S01044 
F2S01045 
E2S01O46 
E2S01I147 
F2S0LO4H 
E2S01O49 
F2S01050 
E2S01051 
F2S01O57 
E2S01053 
F2S01054 
E2S01055 
E2 SO 1 05 6 
F 2 SO 1057 
F250105B 
F2S01059 
E2S01060 
F?Sni06] 
F?SOin62 
E 2 5010 63 
E7S0 1(764 
F? S01065 
E2S01066 
E750 1067 


126 
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Table Vll-28. Source program listing of 
subroutine S02 (Link 2) 


* LABEL 

cfzso;? F?sn?nao 

SUBROUUNF SO? E2507001 

C GFhFRAH.S FOR ELFMFNT TYPE ? STIFFNESS ANf) LOAD MATRICES F7Sn2f>02 

U1MEMSIUN 1A(1).AA( 1 J »SI IT (21 I , 033 ( 3 , 3 > , E2 £ I 3.3) F7507003 

1, P(24J ,<JV(24),X(8 1 ,V(B),7_(HJ , XDI 7 I > Y IT I 7 1,70(7 l,ftl II ) F? SO? 004 

COMMON IA,AA F2 50200$ 

EQUIVALENCE! 1 A. AM » < D21 ,D33) « ( D21 1 10 I . F2? 1 , (0?) I 19)»F)»(I}?1 1701 ,fi ) F 7SU2006 
EQiJI valence (lAIll, IN), 114(21, IftN), UM3), IT), (14(4), TP), MM5), F2S020O7 

1 I PRS I, I I A 16) t I TYPE), I I A I 7 ) , I MAI ) * I 1AI ft ) , I OEG ) , II A I 9 ) , 1 NX ) , [14 1 1 0 I ,f 2502008 
2IH),(|Mll)»Jfl),IIML?l, JMKX MIAU3). I KM Y 1 . I I M ) 4 ) , I«M7 I ♦ (1 6 (1 5 ) , F2 S02004 
3 IMF 1|, I ! A I IM , I ARC), I U I IT) , N ( 1) I , I I A I ?b > , M } , [ I A ( 26 I , I TV 1 , [ I A I 27 I ,E?5020I0 
4[STft> ,<1A|2B| ,]PLT), ( 14(29) t ITEM] , { I AI30), I T 1C) , IIA( 31 I , IMFTI , E2 502011 
51 J AT 32), I SUM). I IM33), INO), ( IAI34],IMS>. I JAI36J , IDS) i UM 37), F7S02012 

6I0RO) , ( J fl ( 3 6 I rIOkOl I * ( ] A < 39 ) , ACEL ) , ( I A I 50] ,.11 1 . I Ull 51 I ♦ J2) , E2SOZ013 

7(U(52),J3), { |A<53), J4), | IA($4| ,J5) ,{ IA(55) ,.JAJ » II A (561 * .1 T I ,( I A ( 57F 2SU201 4 
BJ tJR) , (IAI 5B1 , .11 Y>, I 14(591 ,IBti>, U A| f»0) * 1BU) , I IA| 61 I , T Mil »t TA1 67) ,F2S070I5 
91 IA), I IA<63), 101 I , ( IA(64),I|)Y|, < ]A( 65),]TFl ,< 14(41), ITAPJ F7S07016 

EQUIVALENCE 114(66) , ICAR), U 41 bT) . iCi X I , ( I A ( 68 ) , 1C 1 V) , I Ifl I 69 I , F2SO2017 

1 fCl! | ,(14(70) . ICFI ), | IAI71), I XX), I TA7 72 I , JYY1 , 1 ! A I 731 , 122), F2S0201R 

21 IA(74) ,1 1C), I 14(7$) , ID€F) ,( IA<76) , I 5T| , MAI / M, I ISI E2 5020 19 

3. ( I A { 78 ), IGENJ,T IA(79). I ERR] , < AA<ftO),TE I , ( 4A( fi 1 ) , [>T ) , ( AA I R? ) , nt? 1 , E2S(J2y20 

4UA(83),AU)i IAAIB4I ,AL2), IAAI88) ,AL3) . ( 4A|ft6},D2D, I *4(107) ,P), E7S07071 

5IAA<13| >,l)\l), |AA(1 Sbl ,XI , t AAI 163), Y>, I AM 171 ) ,Z) , (AA I L79J ,XD) , F7S07072 

6 IAA (186), YD), I A A I 193) ,Z0> , IAA I 351) ,5 ) , (AA 1*0) rZGFM) E2502023 

?, I AA( 42 ), INP ) , I AA ( A3) T I PPG) , I AA| AA] , I PEN) , t AA(45 ) ,CONS ) , ( A fl I 4ft > , 1 tJF 2S02024 
«l ,(AA|47| ,Gl I ,<AA(48) ,f,2>, IAM491 ,G3) F2S02025 

EQUIVALENCE ( )A( 349) ,NT 1C ) , I I A [ 348 ] , I SOT) , ( I M 34 7 I , TSOY ) . ( IA( 346 I F7S02076 
1 ,ISOZ I ,( IA(3A5) t.py ) , I 1AI 3A4) , JlOi t (1 A(343( , JMR5) ,I1AI 3A2) , JSOY) E7S07077 

2, 114(341) ,JSf)21, M A(3A0I ,JARE), I I A I 339 ) , JMMX ) , I U [ 3 38 ) , JMM Y J 1-7X02028 

3, I 1A (337 I , JMMZ) , II A I 336) , JMF I 1 , MAI 3 35 I , ITA$! , ( 1 A ( 334 ) , I DZ > E2S02029 

A, I IAf333| , IPft >,{ AA( 332 ) ,DGY ) , (AA( 331 I , DGZ ) , I A A I 330 ) , PKE S I E7S02030 

5, l JA 1329 I ,IPlR), (AA(32A),PRCfiJ F2S020 31 

DIMENSION A(fr,6),0IR(3,3),UVG( 1 2 > i T( 6 J .70(3) »PNI 3) * DUG ( 3 J F7S07032 

EQUIVALENCE (AA(?a01 ,AI , (AA(?36l , ELI ,(AA(237 ) , area ) , ( AA ( 23 A ) , 1 1 ) F7507033 
1, I AA(?39) , JJ ), IAAI2 A0),1K>, ( AAI241] , Jft) , | A A | 242 ) , NY ) , | AA I 7 AA } , 0 1 R ) F 7S07034 
2, I AA (306) ,UVG1 , ( AA ( ?9 1 I , PIP ) , (AA(?94l ,PN),(AA (297) ,[>UG) . (AM 300 > , T ) f 2S02035 
CALL CODI F2S02O36 

CALL BEAM E2S02037 

} PBC=0 F7S02O38 

IF (JPR5I 40. 50, AO E7S02039 

AO DUG! 11=1. F7S02040 

DUG I ? ) =0 . F2S02041 

OllG( 31=0. F7S020A2 

CALL EL01 F2S02043 

PRC0=.5*EL*PRES*PDn ) F2S02044 

Pl5l=-PftC0*EL/fc. E2S02U^5 

P 1 6 } *~P < 5 ) F?£02n<,6 

I PBG=1 F2S02047 


F7S07016 

F2SO2017 

F2S02018 

E2SO2019 


fr?S0?07? 

E2S02023 


1PEN=2 

>0 IF (ACEU 60,80,60 
60 DO 70 1=1 , 2 
70 DUG< I ) »Gl ( 1 ) 

CALL FLDl 

CONS* . 5*EL*ACtL’>AKfcA 

C AC E * I DUG 1 1 ) *1*1) ( 1 )+E>UG(2]*Pn<?) ) *r.(]NS*F L /f>. 

P(5)=P(5)-CACF 

PI 6 l=-P ( 5) 

I P6G= I 
IPEN-7 
80 I I - L 
JJ=1 
I K = 1 
JR«1 
NY=6 


E2S020A8 
E2S02049 
F 2S02050 
F7S070‘5l 
F7S020S2 
E 2 SO 7 0 53 
F7S02O54 
F7S02055 
F7SO2066 
F2S02057 
F7S070 , )H 
F2S07059 
E ? SO 20 60 
S2S02061 
E2S02062 
FPS070A3 


CALL RLf)C E? SO 2 064 

IF (OG) nn,3in t lia F7S02065 

11U UVG(5)=,5»0G*AL1*EL F?S0206b 

UVG(6 3 = — Li V G ( 5 ) F2S02067 

DQ 300 I =1 ♦ I ns F2S02068 

JOO IJVI J )=UV( D+UVGU I F7S02069 

310 CALL SIRA ’ F7S07070 

RETURN F 2 S070 f I 

END E2S02072 


Table VII-29. Source program listing of 
subroutine S03 (Link 2) 


4 LADE t. 

CE2S03 E2S03000 

SUfiRDUT 1 NE S03 F7S03001 

C GENERATES FOR ELEMENT TYPE 3 STIFFNESS ANO LOAO MATfilCFS C7S030n? 

DINENS I TIN 1A( 1 ) ,AA| 1 I ,S( l ), NIH) .021 ( 21) ,D33 (3,3) ,E22(3,3) F7S03003 

1 ,P(24) ,UV(24) ,X(8),Y|8) ,2(0) ,Xni?> , YD ( 7 ) . 2IX 7 I ,G1 I 1) E7 SO 3004 

CUMMON IA.AA E2S03005 


tool VALENCE ( !A,AA)ri 021 ,033) , 1021 (1D).F??| ,1 02 1( 19). El . 1071(20) ,G ) E2 SO 3006 
EQUIVALENCE (lA(M,lN),(IA(2),IBN),(IA(3)tIT),(IA(4),|P),MA(5), E2S0 3007 
1 I PRS ) , ( I A(6) , I TYPE) , I I A I 7 I , 1 MAT ) . I 1 A ( 8 I ,IOEG) , U A ( 9 ) , !NX I , ( 1 A (1 11 > . Z? S03008 
21H), I I A I 111 , ! B> , IIA( 12 ) . I MMX ) , ( JA( 13 ) , I MMY ) , | f A M 4 I , I MM? ) , | T A I L 5 I , E2S0300 9 
3IMF1 ), I IA< 161 ,IARE>, ( IAI 17], NO ) I , ( 1 Af ?3 ) , «) , I I A ( 26 ) , IT Y ) . ( 1 A ( 27 ) , E2 S0301 0 
4 IS fR),( IA( 28 ), IELT), UA(29). ITEM), I IAI30J , I riCl, ( iA(31 1 , IMETI, E2S030U 
511 ACJ2I . 1SUMI .(IAI331 ,INU) ,( 14(34) ,1MSI ,( JA(3A),IIJS) , I 1AI371 , F2S03012 

610RD)*MA(3fl) , I0AU1), MAI 3VP,ACEL I , (I A ( 50 ) , J l I , ( 1 4 ( 51 ) , J2 ) , F2S03013 

7 I I A I 52 ) , J3 ) ,(l A(53 ) , .14 I , < 1A(54), J5 ) . 114 I 55 I * J6)»([A(56) . J7), ( I 4 I 5TF? S0 30) 4 
Rl ,JB),( IA(58),.ITY] ,( IAC59), IftBI, ( IA(60), IBU) , (14(6) ), I ID) , I I A ( 62 I , F 7S0301 5 
9 I I A ) , ( 1 A ( 63 ) , I DT ) , ( 1 4 ( 64 ) , J OY ),( IA(65),JTF)»(IA(41),ITAP) E? SO 30 16 

EQUIVALENCE (|A(66),ICAR),< |A(671,lCIX),MM68l,ICIY),IIAI69l, F2S03017 
1 1C 12) , I |A (70 I , ICFI > , I 1 4171 ) , 1XX ) , I IA( 77), IYY I, I IAI73) ,122), F2SO3O10 

71 1A174I , I IC), I I 4(75), IOEF), ( I 4(76) , 1ST) t | I A|77) , I IS) F2S03019 

3, U4( 7H] .TGFM) , (I A( 79 ) , I ERR ) , I AA I 80] , TE) , ( AA ( ft l ) , DT ) , I AA ( 32 I ,0(11 , r2S03070 
4) AAIH3I .ALl ), (441841 ,AL2), (AA{85),AL3), (AA(fl6) f D21 ) t(AA(107),P) , F7S03021 

5(A4I 131 ) ,UV ) , ( AA( 1 55 ) ,X ) , I AA I 163) ,V) , (AA( 171 I , 2) , ( AA I 179) ,XD ) , E2S03n?2 

6 I A A I 166), VO ) , I A A ( 193 ) , ZO ) , ( AA{ 15 1 } , S I , ( AA ( 40 1 , ZGEM ) E 2 503023 

7, ( 44 (42) , JNP) , t AA(43) , 1P8G ) t IAA (44 | . 1 PFN ) « IAA I 451 ,CONS) , ( A 4 I 4 b J , I U6 2 SO 30 24 
8),(AA(47) ,G1 1 ,< AAI4&KG2), ( AA(49I ,G3) E25Q3025 

FOU I VALENCE I IAI349) ,NT I C I , ( 1 A ( 34 ft ) , I SD7 ) , ( l A ( 347), 1 SOY) , ( I A ( 346 > (;7S0 3n76 

1,1 SI1Z 1,1161 345 ) , J9 > , I IAI344), J101 ,( JA(343) , JPRS! , I I A [ 34? I , J SHY ) F7SO3027 

2, ( 14 ( 341 ) , J5DZ1 , (I A I 340 ) , J ARF 1 , ( i A t 33V I ».IMMX I ,( 141 33ft) , JHMY) F 2 SO 3023 

3, ( 14( 337 ) , JMMZ ) , I IA( 336) , JMF | | , ( [ A (336 ) , I T AS ) , 11 A I 334 ) , I HZ ) P2503029 

4, ( 14(333), I PR) , IAA (332 I ,OGY) . (AM 331 ),!)«? I , I AA ( 330 1 .PRES ) 6 2 SO 30 30 

5, ( 1 A ( 32 V ) , 1 P 1 R ) , I A A I 32 4 ), PRC 0 ) F7S03031 

DIMENSION A(6,61,DIR(3,3I ,UVG( 12) , T ( 6P ,PDl3)»PM3) , DUG I 3 ) F7S0 30 32 

EQUIVALENCE I AM 700 I , A I , ( AA ( 236 ) , ELI , ( AA I 237 ) , ARE 4 I , I A A ( ? 38 ) , I I I E7S03033 

1 , (4A (239 ) , J J ) , (4A( 240) , 1 R] . < AA(?41 J , J« ) , ( AA (247 I .NY I » ( AA( 284 ) ,PIR I F2S030J4 
7, (AA< 306) ,UVG) . ( A A ( 291 ) ,PM , ( 44(294 ) , PN J , i AA( 797 ),IHJG) , ( AA ( 300 ) . T ) F7S03036 
CALL C0IJ1 F2S03036 


CAI L PUJF 
IPBG^O 
I PEN" 1 

IF I J PRS ) 40,60,40 


E2SO3037 

F2S03038 

E2503039 

F7S03040 


40 PRCG- , 54EL*PRE S 
50 PU I = PKCO+P < 1 ) 

P ( 7 ) “PRCt.l* P ( 2 J 

H ( 3)>MKCtl*El. : »0lRI l,2)/6.+P(3) 
P (4 ) «-Pl 31 tp(4 I 
P ( 5 ) s PRCO*E L*0 1 R ( l ,1 )/6.+PI5l 
P(6)"~P(5) +P ( 6 I 
611 10 (60, 80),] PEN 
60 IF ( AC EL I 7U,P0.70 
70 PRCO* » 5 •EL* ACEL *6 3 
I PEN"2 
GO TO 50 
bn M = i 
J J= L 
I R“ 1 


F2S03041 
F7S03042 
E2S03D43 
F7S03044 
F? SO 3(1 4 fi 
F 7 503046 
F 2 S 03047 
F?sn304fl 
E2S03049 
E2S03050 
F7SO3051 
F2S03052 
F2S03053 
F'7StJ3D54 
F7S03055 


JR= 1 
NY-=6 

CALL RLflC 

1U0 IF (DGZ) L08,3l0,10fl 
108 OG=OGZ 
110 CONTINUE 

UVG<5)--.5*PG*AL1*EL 
1JVG ( 6 J » - L)V G ( 5 1 
CALL TRAN (UVG,0) 

DO 300 1=1 , TOS 
3U0 (IVI I 1-lJVI 1 I +U VG < I I 
310 CALL STRA 


F?5H 3056 
E2S03057 
F2SO3058 
E 2 SO 30 5 9 
F2S03060 
E 25 O 3061 
F 7S03062 
r 7 SO 30 63 
E7S03064 
F2 503065 
E2S03066 
E? 503067 


iooo RETURN 
ENQ 


E2S0306R 
F7 SI) 3069 
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Table VII-30. Source program listing of 
subroutine S04 (Link 2) 


* LABEL 

CE2S04 

SURKUIH 1NE SD4 

C GENERATES him flement type 4 STIFFNESS AND LOAD mats* ices 
DIMENSION I All P .AAtl ),$< 1 },NI8) ,021 (21 1 ,1)33(3,3) ,EJ?7|3,3] 
1,PI24| ,UVI24),X(A| ,Y(«) ,Z<R> ,*0(71 ,YDl7l .21)1 7 I ,G1 I 1 ) 
COMMON r A , AA 


F2S0400U 
fcpsnAnm 
FPS0400? 
E 2 SO 4 00 3 
E25O4004 
F2S04005 


EQUIVALENCE I IA , A A I ,<1121 .0331 , I D?1 U 0 1 , E 22 > ♦ I 0?l M 9 ) , E } , ( 0? l( 20 ) , C. ) f 2S0400b 
EQUIVALENCE II A I l ) ♦ I N ) , (I A I ? I , I RN ) , [ I A I 3 ) , I T I ♦ ( I A t A ) , I P ) . ( 1 A ( 5 I , £2504007 

1IPRS), I1AI6) » 1 1 YPfc ) , t I A t 7 ) , I MAT) ,UAId}, I DEG) * II A I 9 ) , I NX ) , I 1 A I l 0 I ,£2504006 
?m)i<IA<in,l8|i(IA|l?] t I MUX I, < JA(13), IMMY1.I I A I l A I , I MM/ I , f I A \ \ 5 ) , E7 SO 4009 
3! MFI >, II A I 16) , JAHE ) T ( |A ( 17 ) ,N( 1 ]), II At 251 ,M| , ( l A I 2b) , II Y ) ♦ I I A 1271 ,E2SO40[O 
AlSTR).UAI2«l,IELTI,n*(29J,ITEM|,( JAI30), ITICI, I UI31 J, IMETJ , E2S0401 l 

*1 IAI32I , I SUM), I I A<33> . tND) , I [At 34) ,1MS) , I IA t 3b) , IRS >, I IA{ 37) . E2S04012 

BIORU), I UI38) , iriRD) ) * ( I At 39 ), AC EL ) , I I A I SO J , J L ) , (J A ( 5 1 ) , ,12 > , F7SO4013 

7| IAIS2) ,J3> , I 1AIS3I ,J4), (I A(54| ,J5J . < IA(55) ,J6) , MAI 56) « J7l , ( 1 A I 5 ZF7S0401 4 
B I . J H ) « t 1A158I . JTY>, I I A [ 59) , IBB) , [ IA(6Q > , IBO) , I IA (61 > , I ID I , ( I A I 6? } , E ? 50401 5 
<JI IA J ,1 lACftSI ,IDT)M IAI6AI , JDYJ , UA|*5) , 3TE) , M Al*l J , I TAP) E2SO4016 

FOll I VALENCE U A I 66 ) ♦ IC AR ) , | T A [ 67 I ML I X I . I I A ( 6H ) , I C 1 Y J , I T A I 69 > . E2S04O17 

1 ICIZ) .1 I A 1701 t 1CF1 I , ( 1 A C 71 ) , I XX I . ( I A I 77 ) , I YY) , ( [A (73) , I 22) . F2S040I B 

2( IAH4I tIIC), I IAI75) . IDEE I, ( IAI7A] ,IST) , ( IA<77), MS) F7S04019 

3i t I Al 781 ,IG6M) , I [A179I MERK) , IAA180] ,TE ) , I AA IM ) ,0T] , [ AA I 821 ,[)G) . £7504020 
4( AA(U3l,Al 1 ) , t AA(84| . AL2) , t AA(85 I , AL3) , [AA{861 ,0P1 ) , MAI l (17 ) , P) , E2SO4021 

5t AA{ 131) ,UV>, I AAI 155) ,X) , I AA I Lb3) ,Y ] , (AA( 1 71 1 , / I . ( AA( 1 79} , XD) , F2S04022 

6MAUS6) »YD), I AAtl93).Zn),t AAI351 I ,Sl , l AA < 40 ) , ZGFM ) FPS04023 

7, UAI42) ,INPI,(AA14T) f IPBG), |AAf44| , IPFN). IAAI45) .CONS) , I AA < 4f> I f 1UF75040P4 
81 , { AA ( 4? ) , G I I . ( AA I 48 ) * 02 } , { AA ( 49 ) ,G3 ) E?S0402f> 

EQUIVALENCE I I A (349 I ,NT IC I , < ] A < 348) , I 5DT ) , I 1 A I 347) , I S IIY ) , ( I A ( 346 ) E2 504026 
1MSQZ) ,( [At 345), J9> , t IA1344) T J 101,(1 A(343),JPR$) . II 6 I 342 I . JSD Y ) E2S04077 

2, ( IA I 34) I , JSDZ I , < I A( 340), JARF) , t I A t 339 J , JMMX) , ( [ A t 338 1 , JMMY) E2S04028 

3, f IA ( 337 I, JMKZ ),(l At 336 1,. IMF) I , (I A t 335 ) , I T AS > , I I A I 334 > , 107 ) f2S04029 

4, ( I A { 33 3 I , I PR ) , I A A I 332 ) , DGY I , I A A I 331 ) , l)G2 1 , MAI 330) , PRES I F2S04Q30 

S*( fA(329) , IPIR ) , (4A( 324 I .PRCCH FPS04031 

DIMENSION A { 6 , b ) , 0 J R ! 3 , 3 I ■ UVG ( 1 2 ) . T [61 , P0I1) , PN | 3 ) , DUG ( 3 I F7S04032 

FOl) I VALENCE ( A A ( ZOO ) , A ) , I A A I 2 36 1 , EL ) , I AA I 2 37 ) , AR E A > , | AA( ?3R > , 1 1 ) E2S04033 
1 , < AA( 239) , JJ ) , ( AAl 240 1 , 1 K > , I AA| 241 ) , JR ) , ( AA<242 I ,NY ) , t A A t 2 fa4 ) , |) | R ) F 2 $04034 
2, ( AA t 306 I , IJVG ) , I AA I 291) ,PDI , ( AA| 294) ,PN I , ( AA I ?9 7> ,m>GI , (AA I 300) t T I F2S04P35 
CALL CODI E2SQ4036 

IMBGsO E2S04037 


CALL CODI 
I P&G=0 

IF IJPRS) 40,60,40 
40 ruiGIU«l. 

DU0I2J-0. 

DUG I 3 I -a . 

CALL EL 01 

*>0 PKC0=.5*El*PRES*PD(l) 

PI 7)=-PRCCI*El4PNl L)/6, 

PI B ) =— P | T ) 

Pl9l=“PRCU*Fl*PNt2)/6. 

PI 101--PI9) 

Pill I — PRCn*EL*PN«3|/6. 

PI1?I=-P(U> 

I PH6= 1 
IPEN?3 

60 T F ( ACE L I 70,90,70 
70 00 80 1=1,3 
60 OUGl I)=G1 I I) 

CALL EL LI I 

CUNS=.5*EL*AC€LVAREA 

CACF. = I DUG I 1 )^PD(1 ) + DUGt 2l*HIM 2J+F1UGI 3)*PD( 3) ) ^CONS^F L / b 
P(7) = P(7|-CACP*PN( 1 ) 

P 1 8 > = -P ( 7 J 

P(9)5p(9)-CACF4MN(2] 

PI 10 ) “-P 1 9 ) 

P(1 l)-P(U)-CACEvPNI3l 
HM2)=-P(ll I 
1 P8G= 1 
[PEN=3 

90 CALL BEAM 
11=5 
JJ = 3 
J R= 1 1 

JR= 3 
NY*? 

CALL RLQr. 

JJ-5 
JR* 1 1 
CALL RLflC 

I 1 = 3 
1R*3 

CALL RLIIC 

II = 1 


F2S0403A 
E2SD4039 
E2S0404I) 
F2S04041 
F2S04042 
E 2 SO 4043 
E 2S04044 
F2S04045 
F?S0404fi 
F2 504047 
F 2 SO 4040 
F2S04049 
F2S04050 
E2S04051 
F2S04082 
F2S04053 
F2S04054 
E2S04D55 
E2S04056 
E2S04057 
F2S0405H 
F P SO 4059 
F2S04060 
F2SO406L 
F2S04062 
F2M14063 
E2S04054 
F2SQ4065 
E2SO40B6 
E2S040A7 
E2S040M* 
F2S04069 
F2S04070 
P2S04071 
F2S04072 
F?S04n73 
E ? SO 4 07 4 
F ? 504075 
F2S04074 
E2S04077 
F2S04078 
F 7504079 


1 R= 1 
JR=1 
NY=4 

CALL aloc 
r.ALL PLHF 

r«=s 

JR = 5 
NY*6 

CALL RLDC 

IF I DCs J ] I 20 ,129,120 
120 UVG t 9 ) « - . b *HG Z * A L 1 * E L 
UVGMD l*-UVG{9 ) 

125 IE UJGYI 200,210,200 

200 uvr.! n )= .St-DGV^ALl^FL 
IIVG(12)>-UV[iUl ) 

210 call than tnvr.,oi 
no 300 I = l,m5 
3U0 (JVI 1 )=IJV| I l+(IVG< I ) 
ilo CALL SIRA 
1UU0 RETURN 
END 


E2SO40A0 
F2SD40R1 
F2S04OR2 
F 2 SO 4t)8 3 
EPS040B4 
F2SD40R5 
F2S040ft(s 
E 2 SO 40 8 7 
F2 504088 
F2S04089 
F 2 5040 90 
C2S04091 
E2S04092 
FP504D93 
F2S04094 
FPS04095 
E 2504096 
r?S04047 
E2S04098 
E2S04099 
F2S04100 
FPS0410! 


Table VII-31. Source program listing of 
subroutine 505 (Link 2) 


4 LABEL 

CE2S05 

SUBROUTINE 505 

C GENERATES FOR ELEMENT TYPE 5 SMFFNES5 A NO LOAD MATRlCfS 
DIMENSION I A I ) ) , AA f) ) , S ( 1 I ,NI8),D?1 (21 J ,033(3,3) ,E22I 3,3) 
1 ,P< 24 I ,UV IP41,X(R) . Yl fl ) ,7(li}.xn( 7) , Vffl ? | , ZD(7 >,Gl ! 1 ) 
COMMON I A, A A 


E2S05000 
£250500] 
F 2 505002 
E2S05003 
£250*1004 
F2S05005 


EQUIVALENCE ( IA, AA) ,(D2i,D33) , < 1)21 l 10 ) , F27 ) , l H?1 I l 9 1 . E I , I D2 l ( 20 ) ,G)E2S05D06 
EQUIVALENCE nAU),]N>,MAl2|,lHN),(|A{3),IT),MA|4),IPI»<lA<M, F2 5P5007 
1 I PR$ ) , ( |A{6),tTYPE), I ! A f / ), |MAT),( f A( ft ) , I 06f. ) , I I A 19), |NX|, ( 1 A ( 1 0 ) , F 2505008 
21H),irAllL),lB],{|AM2|,]MMX),ITA|13), JMMYI , ( I A I 1 4 1 , I PM7 ) , < IA( 1^1,82 505009 
3 IMF I 1 ,< IA(16),I ARE), { [AM7),N<1 ) ) ,( [A(25),*U, I [ A I ?A ) , 1 TV ) , UAIP7) ,E?S050I0 
41 STR) , (IA(?H),1FLT) , I IA(29l , I T EM I , IS A I 30 I , [ TIC ) , ( l A I 31) . I Mf T ) , FPSObDl l 
S ( I A ( 32 ) , I SUM) , < IA ( 33 | , [NO) . (I A( 34 ), IMS I , ( IAt 3A) , IDS I , M A(T7) , FPSUSOI ? 

6IUH0J , l I A ( 38 ) , ] DK01 ) , ( IAI39I .ACE l ) , ( I A ( 50 ) , J 1 ) , ( I A ( 51 ) , JP ) , FPSOSOU 

7M4( 52 ) , J3J , I I A I 53 I , J4>, [ |A{ 54). J 5 » . I I A( 55] ,J6), I lAIbbl , J7 J , ( [ A ( 57f 25050) 4 

B ) . J8 I , t IAf 58 ) , Jl Y I , (IA(59) . t BB) , ( lAt AO) ,1R0I ,( IAI bl I , MOI , (U< 62) ,F2S05015 

91 IA ) , I IA 163 I , IDT) , (I A [64) , | (JY) , I I At ftb ) . I TF I , ( I A ( 41) , I TAP) FPSObOlA 

Equivalence i i a(66> , icari , mac 67) , icixj.i i A{*8), iciyj , 1 1 a 17 , 91 . fpsosoi? 
I iCI2) , I IAI70) , TCFI ) . ( 1A(71) . IXX), ( IAI7?) , IYY) , 1 JA(731 , 172), F?S050)8 

?( |A(74), I [Cl ,( IA(75) , IDFFJ ,(l AI76) ,IST),( IA(77 I, IIS) F2S05019 

3,( [A I 70 I, IGFM), l I A { 79 I , I ERR } , | A A ( SiO P , TF ) , ( A At HI ) , DTI , ( AA I 82 ) , Ofi ) , FPS05020 
4( AA( 83 ) , AL1 1 , ( AA( 64) ,AL2 I , ( AA( B5 ) ,AL3I , ( AA( BA] ,1)21) , ( AA (107 ) f P ) , F2S05021 

5( AAI 131 ) ,I)V I ( (AA! 155 > T X), [AA( 163! ,Y I , I AAI 17[),Z), I AA | 179) ,XD), E7 5050PP 
b(AA(l»b) ,YD) , ( AA( 193) ,20 I , t AA( 391) .5), I AA t 40 ) . 2 GFM ) F 2505073 

7 , ( AA<42 ) , [NP | , ( AA(43) , IpRf, I , t AA( 44) , I PEN) , f A A (45) .CONS ) , I A A I 4 b I , 1 1 IF 7 5050 2 4 
B) , IAAI47I ,G1 ),( AA14H) ,G2) , ( AA(49J,G3) F25fi50?5 

»=Oll I VALENCE IIM 349 I , NT I C I , I I A I 348) , I SOT 1 , ( I A ( 34 7 I , ISDY) , ( J A ( 346 ) FPSOSOPb 
1 , ISDZ I , ( IA( 345) , J9) , ( IA( 344) , J 10 ) , II A l 34 3 ) , J PRS ) , II M 34? ) , JSDY) FPSOIO?? 
?,( !A(34L),J5D1} ,( [A(3401 .JARF I, ( l A I 339) .JMMX] . (f A I 3 3H 1 , JHMY I F2S0502 8 

3, ( IAC337 I , JMM2) , I IAI336) ,J«F I ) ,(|A(335) M1ASI . (IAI334) . [07 ) E2S05029 

4, (IA(333), IPR I, lAA(3l?),DGYJ,(AAt 331>,OC,Z), !AM330I,PRFS) FPS05030 

5, < IA( 329 ) , 3 P IK) , II A [ 328] ,MAV I , II A I 327 ) , Cf E J , f I A( 325) , I TTT ) FPS0 50 31 

DIMENSION EM(4,'i(,£Nl4,4],(.)(4,4).K](4,4) F? SO 5032 

EQUIVALENCE I AA ( 200 I , E M ) , I AA ( 2 1 b I T FM 1 , I AA ( ?3? I . iO ) , ( AA ( ?4fl l ,0 1 F7 5 050 3 3 

1 , UA| 291 ) ,A2 ) , I AA(324 ), PROD 1 F2S05034 


TRIANGULAR PLANT ELEMFNT 
A2=XD( 1 )*YIJ(2 I’XDf ? )4YD( 1 ) 

IF t A 2 J 1,1,41 
1 CALL TRIM 

CALL TRM (fl33.EM.(J, 3. 3 I 
F1=TE/(2.*A?) 

CALL ADN I 5, IDS,Q, 3, 1 , 1 , F 1 ) 
CALL TRM (033,EN.Q,3,3) 

CALL ADM (S. IDS, 0,3,4 ,4,F1J 
CALL IRM (033, FN, EM, 3,-3 ) 
CALL ADM (S, IDS, FM, 3,1,4, Fl) 
i PRG-0 

IF I I GEM I 60,60.85 
60 IF (JPRSJ 7 1) , 8 S , 70 
(Q IF I IT) T-1 ) Yl ,71 ,85 
71 K A V=NAV 

GO TO I 80,80,85 l,KAV 
60 P(1 )^,5^PRES*YDt D/CFF 
P ( 2 ) = P I L ) 

P(4)=-.54PRFS*X0(l l/CFE 

P ( 6 J = P I 4 I 

Ub IF (ACELI 90,9.90 
VO C0N$=TE*A2*ACFL/b. 

1 PBG-1 
I PEN= 2 
PRCD*0. 

RtTIJHN 
I E RR = 1 
GO TO 9 

end 


FPS0502B 
E2S05029 
FPS05030 
EPS05031 
F75D5032 
F? 5050 33 
F2S05034 
F? 5050 35 
FPS05036 
F7 SOSO 37 
FPS05038 
F2S05039 

FPS0504II 
FPS05041 
F2SO5042 
1-2505043 
F2S05044 
F?S05045 
F2505046 
£7505047 
F 250 5048 
F7S05049 
F7S0505O 
F ? SO 50 5 1 
F7505052 
F2505053 

E7505055 

FP505056 

FPSovnv? 

E250505B 
F2S05059 
E7S050 60 
E2S05061 
F2S05062 
F 2505063 
F2 5050 44 
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Table VII-32. Source program listing of 
subroutine S07 (Link 2) 


Table VII-33. Source program listing of 
subroutine S09 (Link 2) 


* LABEL 

r:fc2sn7 

SUBROUTINE S07 

C generates for element type 7 stiffwcss ano load matrices 

DIMENSION mu ) tAAM ),Sl l),N<H| ,11211 ?1 ) » 1)33 I 3 » 3 I *E?2(3|J) 
L,P|24|,UV(24),XI8) ,Y(8l ,2(8) ,X0(7) ,Y[l(71,ZDm >G1 I 11 
COMMON i a , a a 


F 2 smano 

E 2507001 
E2S07002 
F2S07003 
E2S07004 
F 7 SO 700 5 


EQUIVALENCE! I AMA ) t ! 0,2 1 , 033 1 . ( 1)2 1 ( 10 ) , F22 ) , ( 02 1 ( 1 9 1 t E I i ( D2 1 i 20 I ,C, IF2SO70OA 
EQUIVALENCE !MU)«IN),nA(2).IBNl,riAI3l,IT|,(|A(A) f IPJ 1 ,|[Af‘»}, E 2507007 
IIPRS) , (1A<6I , I TYPE | , 11 A I 7) , I MAT ) , M A I 8) 1 I DEG ) . I I A [ 9 ) . I NX ) , ( I A I 1 0 > ♦ E2S07008 
2rH) l riA(IL)*1fi),([Ml2>« [MMX ) f (| A(1 3) , I MMY ) , M A (I 4 I ■ IMMZ> , I IA I 1 5 I .E2S07009 
31MFn,HA(lh| , 1ARE), It Al 17] ,N( 11 ) , 1 IAI 25) ,M) , ( lAt 26] ,1TY I , < M(27) ♦E2S07010 
ArSTR),(|A(2B| , tELT), ||A(29) , I TE«) , ( I A [ 30 I , IT1C), II A 131 I, I MET), E2S07011 
5 ( 1 A ( 32 I « [SUM 1 t ( lA(33)»lNf)) , { IA( 34] « I **S t i ( Ml 3b) , IDS) , ( I A ( 37 1 , F? 50701 7 

6 1QKD ) , ( I A ( 38 1 , 1 1'IKOl I , ( I A I 39 1 , AC El ] , ( I A ( 50 ) , J 1) , I U I 51 I , J? J « F2S07013 

7(14(521 , J3I . I IAI53I ,J4| . ( 1 A(S4), JS), ( I A| 551 , Jft), ( IA| 56) , J7) , I I A I 570 250701 A 
8) . Jft > ,( |A(5B), JTY), II A(59), |RB) , [ I A < 60 ] . I 6 0 I . < I A < f> 1 ) , 1 [ 0 ) , I M 16?) ,£2507015 
9lJA) t (IA<63)tIpT)*[M(6A) l IDY],nA(65li!TEI,MA{41) T lTAP] E2S07016 

EIHJI VALENCE I I A 1 66 I . I C AR ) , I I A 1 67 1 , I C IX ) , I M ( 6R I , TC I V ) , I T A I 69 1 , E2S0701? 

11CIZ) ,( U(7(]), ICFJ 1 ,<lft(?l), IXXl ,( IA(72) , IYY) , ( 1A(73) , IIZ I, E 750701 8 

2t U(?4) ,1 IC), UAI /5), IUHF1, ( IA< 761 , 1ST), I IA|7T) , I IS) r;?507019 

3 , ( 1 A [ 7fl ) flOEM) ,| IA( 79 I .TERRI ,1 AAI8U) , TE ) , [ AA I fl 1 ) ,OT ) , ( AA ( R2 ) ,DG ) , F 2507020 

4( AA{ 83 ) ,ALl),(AA(S4),AL2)« I A A ( fl 5 I , AL3 ) , I A A IBM, 02 I ) * I AA< 1 07 1 1 P ) i E?S0?0?1 
5 ( A A { 1 31 ) , (JV ) , ( AA ( 1 55 ) , K ) , I AA ( 1 63 } * Y ) , [ A A f ) 7 ) I , 7 ) , ( AA I 1 79 ) , XU ) , E2S07022 

6(AA(186>,YI)> , < AA< 193),ZDI, I AAOB1] ,$] , { AA ( AO ) , ZGFM) F2SD7023 

7, (AM 42) ,1NP), IAA (43) ♦ JPBG) , I AAI 441 , IPEN) ■ | A A | 45 ) .CONS) , ( AA I 46 ) , l HE 2507024 
&l ,1 AA|47),Gl ),{AA(4fl).G2 ) , IAAI49I ,631 E 2507025 

EQUIVALENCE ( 1A(349),NTIC> , I IA1348) , ISOTI . 11 A| 347) ,1S0Y1 ,( IA(346l E2S07026 
1 1 IS02),( IAI3A5I .J9! . ( 1A| 3*4 ), JlO I . ( J A< 343) , JPRS) « I I A f 3*2 1 1 JSOY ) E2S07027 

2.1 MI34L I.JSOZI , MAT 340) , J ARE ) , I I A I 339 J ,JMMX| , ( M133B1 ,.IMMYI f. 2507028 

3, (IAT337I ,JMKZ I , ( IAI336), JMFI K t iAT 335), HAS) ♦ I MI334I ,mZ) E2507029 

4, (IA(333I ,IPRI ,( AA1332) ,nr,YI , t AAT331 I ,OGZI , ( AA ( 330 >, PRES ) F.2507030 

5, 1 1 A (329 I, IPIR) ,( AA(3?4) ,PKC!I] E2S07031 

[) i MENS I ON EM(4,4) , EN(4,4| ,Q ( A , 4 I , EOT 4, 4 ] H2S07032 

EQUIVALENCE (AA<200l,EMI ,(AA<216),0NI , CAM 2 32) , FO ) , ( AA ! 248 ) , 0 I E2S07033 

TRIANGULAR BE NO IMG ELEMENT, CDNSIANT TRACE SCHEME F2S07034 

A2-X0(l MYD(2)-XI)I2I*Y0T L) F7S0703S 


IF (A2) 1,1,41 
41 CALL TRIM 

f L=TE/(2.*A2) 

CALL TRM (E22,EO >0,7.31 
IF ( Q( 2 , 1 ) ) 431 ,43 L , 435 

431 IF I Q< 3i 1 ) ) 432,432,436 

432 [F (0(3,2)) 433,433,437 

435 0(3,1 )=0I3,1 140(2,11/2. 
0(3,7)»QI3,?I+Q<?,1 1/2. 

0(2,1 )~0. 

GO TO 438 

436 0(2tl)=Q(2,l 1+013,1 J/2. 

0(3,2 >-Ql 3,21+0(3,1 1/2- 
013,1 )=0. 

GO TO 438 

437 012,1 l=Q(2,l)+OI3,2)/2> 

0(3, 1 )=Ql 3,1 1+0(3,21/2, 

Q!3,2)-U. 

436 0(1,1 l=-0(2, 1 )-QI3,l ) 

011,21=0(2,1) 

011,3 l'0( 3,1 ) 

012,21 =-0( 1,2) -Q 13, 2) 

012,31=0(3,2) 

QI3,3I=-0(1, 31-0(2,3) 

433 CALL ADM IS, IDS ,0,3, l, l ,F1 ) 

DO 4022 1-1,3 

JF IL-2) 4019. 4U18, 4019 

4018 DO 4021 11*4,9 
DU 4021 JJ = l , 3 
ISS-IJJ-l MIDS+IT 
1 $R= ( I 1-1 1 4 105+J J 

4021 S ( 1 SR 1 -S « ISS) 

4019 DO 4010 1=1,3 

1 1 «l-( 1/31*3+1 
T2-T1-I Il/3)*3+l 
K-3ML-1 l+l 
JSSMK-l )#IUS 
IS51=I5S+I 
J S52 m ISS+ 1 1 
I 5S3=I 5S+I2 

CY= ( X 1 1 1 l-X(I I )<*SI ISS2) 

OY=(X( T 2 1 -X ( I 1 )--*S( ISS3) 

CX— IY< n ]-Y(l) )*5( 1SS2I 
OX=-«Y( 12)-Y! I ))*S( I5S3) 

ST ISSI + 3MCCX+0XI/?* 

S( ISS2 + 3MCX/2. 

St ISS3 + 3J-DX/2. 

S( lSSl+6)-tCY+0V)/2. 

S< ISS2+6)*CY/2. 

4010 SI ISS3+6MOY/2. 

4022 CONTINUE 

CALL TRM (033, EM, Q, 3,3) 
f 2=F1«TE*T£/12. 

CALL ADM (5, 105,0, 3, 7, 7, F2) 

CALL TRM 1033. EN ,0,3,3 I 
CALL AOM IS, IDS, 0,3, 4, 4, F?) 

CALL TRM ID33.ENtEM,3,-3) 

F2=-F2 

CALL ADM (5, I0S,FK,3»7.4,F2) 

452 PRCt1=0. 

I PBIi= 3 
1PEN=3 

CONS * A2*AC EL*TE/6, 

CCNT*PRF5*A2 /6, 

P(l)=CCNT 
P { 7 ) =CCNT 
P(3)=CCNT 

c COMPUTE thermal deform a t 1 ON VECTOR 

4 5 1 FMO&AAL! 

F2^DG*AL2 
on 455 i-i,3 

I I = I MS +1 

| 2= 1 MS +n 
uvin-u. 
yV( 12 I = F1*X( I I 
456 UVII1 l=-F2*Y(I) 

9 RC FlfRlM 

1 IF«R=1 

GO TO 9 
END 


f. 2507028 
F7507029 
F.2507030 
E7S07031 
H2S07032 
E2S07033 
F7SD7034 
E7S07035 
G 7507036 
E25070 37 
E2S07038 
E2S07039 
E2S07040 
E2S07041 
E?Sn7D42 
F2S07043 
E2S07044 
F2S07045 
E2S07046 
E2S07047 
F ; 760 7 04 6 
F7 507049 
F7S0 7050 
E2 507051 
E2S07052 
E2507053 
E2S07054 
E2S07055 
F2S070D6 
E 2S07057 
E 2 SO 70 6 H 
F 2507059 
E2 507060 
F2S070M 
F2S07062 
E2S07063 
F7S0YO64 
F 7 SO 7065 
E 2507066 
F2SQ7067 
E2 507068 
E2S07069 
E2 507070 
E2S07071 
F2507072 
E 250 70 7 3 
F2S07074 
F 250 70 7 5 
E 250707 6 
F2S07077 
E2S07O76 
F2S07079 
F2SQ7080 
FPS070R1 
F 2S07082 
F25070R3 
E2S07084 
F2S070R5 
F2S07086 
F2S070B7 
F2S07086 
F2S070R9 
i-2 SO 7090 
F 250709 1 
F2SO7092 
F7S07093 
E2 507094 
F 250 709 5 
F ? S 070 96 
F2S07097 
FP507098 
F2S07099 
E2S07100 
F7S07101 
F ?S07 1 02 
E2S07103 
F2S07104 
F2S07105 
F2S07106 
F75D710 ( 
F 25071 08 
E 2 SO 7 1 09 
F2S071 10 
E2S071U 
F2S07112 
I • 2 6 0 7 1 1 3 
F2S071 I 4 
F 2507 1 1 5 


* LABEL 

CE2S09 

SUBROUTINE 509 

C GENERATES FOR ELEMENT 1YPE 9 STIFFNESS AND LOAD MATRICES 

01 MENS ION I A I I I ,AAfl I ,S( ) ) ,N(81 ,021(21 ), 033(3*31 ,622(3,3) 
I , P(24 I ,UVI 24) ,X 18 ) ,Y< B| , H8 ) , XD( 7 1 , YD( 7 J , ZD I 7 I,G1 111 
COMMON 1 A , A A 


F2SO9OO0 
F7S0900L 
F 2509002 
E2S09003 
F2509OO4 
F7S09005 


EOU I VALENCE t [A, AA), (021, 033), ( 02 1 U 0 1 , F22 I . ( 021 ( 1 9 ) . F ) , ( 02 1 1 20 ) ,007509006 
EQUIVALENCE ( I A ( 1 ) , I N J , ( l A [ 2 } , I B(R I » ( I A ( 3 ) , I T 1 » ( I A ( 4 1 ♦ I P } » 1 I A ( 5 ) , E2S09007 

1 IPR5I, ( I A ( 6 ) , I TYPE ) , ( 14(7). I HAT] , ( 1 A I B ) « I DEG) , (M(9),INXJ,| 1 A (1 0 ) ,02509003 

2 I H ) , I I A ( 1 l l,I8).[|A(12)< I MMX ) , < 1A| 131 « I MMY ) , I I A I L 4 I , JMMZ ) , ( T A I 1 6 I , E 2S09009 

3 IMF J I , ( 1 A ( 1 6 ) , 1 ARE ) , ( f At 17 I ,N< 1) >, U A (25) ,M) , I 1 A I 26) , 1 TV) , ( 14(27 1 ,E2S09010 
4 1 STft ) r ( 1A( 2ft) ♦ 1ELT ) , I I At 29 ] , I I EMI , ( !A| 30) , I TIC I , ( I A I 31 I » I MET I , E2S090U 

5 ( I A( 32 > , I SUM) , ( IA ! 33 ) , IND ) ♦ ( I A( 341 , IMS! , ( I A( 36) , IDS ) , ( i A(37) , E2 50901 2 

6 IDRD) ♦ ( I A( 38 I . I0RD1 I ,< IA< 39) « ACEL ) , IT A ! 50 I , J 1 1 , (1 A ( 51 J > J2 ) » E2S0 9013 

7( I A ( 52 ) ,J3I » ( IA(63),J4), I IAI54) ,J5) , ( 1A<65) 1 .16), I IA(56),J7I , ( 1A(57E 2509014 
PI ,JP),( [A(5BI , JTY) ,(1A(59I ,I8B), IM160I , TflO),! IA(61) , I [01 , (Ml 621 >02509015 
91 IA| . I IA(63),IDTI, (IAI641 , IUYI. I 1AI65I ,!TE), (14(411 . 1TAP) E2S09016 

EQUIVALENCE ( I A ( 66 ) , ICAR ) , I I A I 67 I , 1 L I X I , I I A I 6& ) , IC ! Y ) . I I A | 69 I , 62S0901? 

1 ICIZ) ,< I A ( 70 ) , ICF| ), ( I A { 7 1 ) , I XX ) , ( IA(72). IYY| ,( IA(73)«IZ7), E2S09D18 

2( M (74 I t ] IC) , I 1AI75I , I DEF ) ,< IA(76) ,1ST) , (1 A I 77) ,1 IS) E 75090 1 9 

3, I I A ( 78 1 , T GEM I , (I A ( 79 ) , I ERR ] , ( AA( 80 ) , TE ) , I AA f HL ) , DT ) , ( AA ( B2 ) , 00 ) , F2S0902Q 
4( AA (83 I ,AL 1 ) , I AA (84 I , AL2) , ( AA| 85 I > AL3) , IAA(R6) ,D21 I , ( AA ( 107) ,P ) , E 2 5090 71 
5 ( AA (131) ,0V) , (AA( I 55 I ,X) , (AAI163),V), (AA( 171) ,Z ), 1 AAI 1Y9),X0) , E2S09022 

6 (AM 18 6) ,YD>, ( AA| 193) ,Z0) , |AA( 3511 , S ) , ( AA ( 40 ) , ZG£M 1 E2S09023 

7, I AA142 ) , INP ) , I AAI 43) , I PBG) , ( AA(44I , 1PEM , I AA( 4 5) ,C0M5) > ( A A I 4ft ) , (UF2S09024 
ft ) , ( AA(4/ ),G1 I , (AAI 48),G2) , (AA| 49 I ,63) E 250 90 25 

EQ(>1 VALENCE ( (A ( 3491 ,NT IC I, I I A I 34(5 ) , 1S0T I , ( J A ( 34 7 ) , I SOY ) , ( ( A ( 346) E 2509026 
1 , 1 SDZ ) , C I A I 345 1 , J9 I , I 1 A( 344) , J 1 0 1 , ( 1 A ( 34 3 ) , JPRS) , I I A< 34 2 I , JSDY I 02SO9O77 

2, I I A I 341 ) , JSOZ ) , I I A( 3401 , JAKE I , ( 1 A I 339) , JMMX) , ( I A (31ft) ,.IMMY ) F?$0902fl 

3 , ( I A ( 337 ) , JMMZ ) , (14(336) , JMF I ) , t ! A ( 3 35 I , HAS ) , U A < 3341 . 10Z ) E2S09029 

4, ( IAI333), I PR) , (AA(332l,OGY), (AAf 331 l,OGZ), (AAO30) ,PRE5) E2S0903Q 

5 i I 1 A ( 379 I , IPIR),( [A(32ftl,NAV), ( AA { 327 I , CFf- ) E2S09031 

DIMENSION AT(4„4) ,BO,3) ,0(4,4) .NDOI/OI ,P0(3) E2509037 

EDO I VALENCE ( A A ( 200 I, ATI , (AA(?16),R), (AA(225) >OJ r (AA(?4l),D£TI, (AAF2S09033 
1(3001 ,NOD) , ( A A ( 324 ) .PRCO ) , I A A I 325 ) , i TTT ) , ( AA ( ?91 ) , PD ) E2S090 34 

|)ET=-XD I 1 )*(Y0| 2l*/0|:n-Y0t 3)«ZD(2> )+YD( 1 ] »( XD< 2 ) *Z0 ( 3 )-XD 1 3 ) *ZL)( 2E2S0903S 
1 ) I -ZO ( 1 }*( XD (2 )*YU< 31 “XII (3)*YI)C?I ) E2S09036 

JF (DETI 1010.1010,720 F7S09037 

720 V0L«l./(6.+06T) F2S0903R 

AT( ) ,1 |=( (YD(2)-Y0< 1 ) )*I20(3)-20U))-IY0I3)-YD(1 > )*( 2017 )-2E>( 1 ) ) ) F2S09039 


AT(1,2J»(-YI)I2)*ZOI3) + YO(3)'*2IK2) ) 
AT ( 1 , 3 I — ( Y0(1 )4/l)(3)-Y0(3l*Zimi) 
AT 1 1 ,4 } ~ (—YD I L ) *ZD ( 2 ) +Yf) ( 2 ) --ZU( 1 )) 


E2S09040 

E2S09041 

F7S09042 


AT( 2, 1 ) *(-( XDI 2 l-XDI 1 ) M( ZU( 31-ZDI l I l+(XD(3l-XDI 1 I )*(Zn(?l-Zlll 1 M IF7S09U43 
AT ( 2 ,2 ) = ( Xf)l 2 )*ZDI 3)-XOO )*ZDI21 ) F2S09044 

A 1 C 7 , 3 1 = ( — X0( l >*ZD(3) + xn< 3) +ZD( 1 I I E2S0904 5 

AT 1 2 ,4 ) = ( XOI l l*ZDI2)-XOt2>*ZOfl) > £2509046 

AI (3,1 J=(IXf>[2)-XD(lJ )*IYD(3I-Y0( l) 1-(*D< 3|-X0(l ) |*(Yni?)-YD( 1)1) €?S090*7 


ATI3,2)=(-XDI2l*YO(3)tXD(3)<‘YO(2)) E7Sn904ft 

AT(3,3) = ( XUI I )*YU!3)-XD(3)*YU( 1 1 ) F7S09049 

ATI3,4)=I-Xnil MY0I2)+XDI7)*YUI 1 1 ) E2S04050 

I PBG-0 E7SOS051 

IF (JPRS I 725,735,725 E2509052 

r<”> IF (( 11 TT-1 l*( ITTT-2) I 735. 726,735 E2SQ90&3 

T26 KAV-NAV FPSU9054 

GO TO I 778,728,735) ,KAV F2S09055 

728 P0I1 )=YDI1 l*ZOI2)-YrM2)4ID(l ) F2S09O56 

P0(2)=-XDI 1 |*ZOI2)+XD(2)*ZO< I ) E7S09057 

P0I3)-X0I1 ) *Y0 1 2 ) -XO ( 2 ) * YD ( 1 ) 62SD905ft 

PRC0«PRES/<6.*CFE) 62S09059 

IE (NAV-?) 729,731,735 h7St)9O60 

7il DO 737 Ml, 3 F7S09061 

1 1 s I —4 E2 509062 

DO 736 J= 1 » 3 F2S09063 

IMI1+4 E2S09064 

GU TD 1732,733,7331,1 F2S09065 

732 P( I 1 l»PRCO*PD( ,1) /2, F2S09066 

GO TD 736 E2S09067 

73 ) P( I I )=-PRCO*POl J )/4. F ? S09068 

7 36 CONTINUE E2S09069 

73/ CONTINUE F7509070 

729 00 730 Ml, 3 E2S09071 

I4=4fl G2S09072 

730 P( f4)=-PRC0*PDM) E2S09073 

IPRG=1 F7S09074 

I PEN = 3 F2 504075 

735 IF (ACFLJ 738,740.738 E2S09076 

736 CON S=r>E T^ACFL/ 24, F2S09O77 

I P0G = 1 E 2S09078 

JPEN-3 F2S0907y 

741) TX-O. r?SD9[)fln 

Da 746 1=1,3 E2SO9081 

745 TX=XDI IMXDI 1)+Y0 I I ) «YI>( D+ZOl I )*ZI)( 1 J E2509nR2 

TX-SORTF(TX) E2S090F3 

TX= 1 ,E-6 yT Xy + 3 F2Sri9084 

IF (DET-TXI 747,747,750 E2S090B5 

747 WRITE OUTPUT TAPE 6, 1 , M, I T TT . OF T E2S090K6 

I FORMA T(27H0rHF VOLUME OF EL EMENT , 2] 4 , 1 2H I $ TOO SMALL, E 1 2. 4, l 3H n|5E25090B7 

I I REGARD Ell , ) E2S09088 

GO TQ 1UU0 E 2S 0 90 R9 

(60 DO 7B0 1=1,3 E2S09Q90 

DO 780 J-I ,3 E2S0909 1 

KU TO (75?, 756,759),! FPS0909? 

752 GO TO (753,754, 755), J £2509043 

753 FH 1 , 1 > “ 021(11 F2S09O94 

81 1 .2)= 02l<4) E2SQ9095 

B I 1,3)= D21 ( 6 ) E2S04096 

Rl ? ,7 1= 0?1 (16) 07509097 

HI 2,3 |= DPI { IB ) F?sn904S 

B ( 3 , 3 1 = 02 1 (21 ) £2509099 

GO TO 739 F2S09I0Q 

734 B { 1 1 l ) = 021(4] F2S09101 

B I 1 , 2 I - 021(2] H2SU910? 

811,31* 021(5) F2509103 

6(2,1)= 021 (1 6) E?Sn9104 

8(2,21= 021(9) E2 SD9 1 05 

6(2,3)= 021 ( 10) F2509106 

6(3,11= 021(181 F2S04107 

(1(3,21= 1121(11) F25n9inR 

0(3.31= 021(201 F? 509L09 

GO TO 7 75 F 25091 10 

755 Rf 1,1 ]= 021 (6) 07509111 


R ( 1 1 2 ) = 021(5) 
B(1 , 3 ) = 021(3) 


- (=7509112 
F2S091 13 
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Table VII-33 (contd) 



B I 2 . L ) = 021(18) 

F 25091 L 4 


H I 2 . 2 > = f>2 1 M 7 1 

E? $09115 


H(2,3)= 021(13) 

p ?S09 1 1 6 


B(3,i)= 021(21 ) 

F7509117 


Bl 3,2)* 021 (20) 

F2S09I18 


8(3, 3)= 021(15) 

F2S091 1 9 


GU TO 775 

E2SU9I70 

Ofc 

(il) TO 1 1 000 ,757,7681 .J 

F7S09I ?) 

(?7 

011,1)=- 021 116) 

£2509177 


B(l,2i= 021(91 

F7S09I23 


ftl 1 , 3 )- 02\ ( 17) 

F2S09124 


ftl 2 ,2 ) = 021(7) 

F2S09175 


8(2,3)- 021(10) 

F7S09126 


813,3)= 071119) 

E 25091 2 T 


GO Tfi 739 

F2S09128 

Oil 

Rll,n= 02l(lft) 

F2S09129 


81 1 ,7)* 021(171 

F2S09130 


811.3)- 021113) 

F2S09) 31 


817,1)- 1121 1 1U 

F 2 5091 32 


81 ?,?)= 0211 10) 

F2S09133 


812*3)- 021 IB) 

F2S09134 


81 3,1)= 021 1 20) 

E2S09135 


81 1,7)= 021(19) 

F 7509) 36 


81 3,3 J = 021114) 

E2S091 37 


GO TO 775 

F2S09138 

7 >9 

811,1)- 02 1 ( 2 W 

E7S091 39 


811,2)= 1)21120) 

F7S09140 


811,31= 021115) 

F2Sn9l4l 


8(2,2)= 021(19) 

F7S09142 


812.3)- 021(14) 

F2SIJ9143 


613,3)= D21 ( 12) 

E7S09144 

/39 

812,1 1 = 81 1 ,2) 

F2S09145 


8(3,1 >=fJ{ 1 , 3) 

E? SO 9 14 6 


B[ 3,2)=8(2,3) 

F2S091 47 

175 

CALL TRM (8, AT, 0,3, 41 

F2S09148 


IR^4*I-3 

F7S09149 


UC=4>rj-3 

F2509150 


CALL ADM(S, 1 OS ,0,4, 18, JC, VOL ) 

F 2509 151 

TOO 

CONTINUE 

F2S0915? 

1000 

RETURN 

p 2S091 5 3 

10 m 

IGftR=l 

E2509154 


GD TO 1000 

F2S09155 


ENp 

F2S09156 


E2S11000 
F2SU001 
E2SL1002 
F2S1 1003 
E2S1 1004 
E2S1 inns 


Table VII-34. Source program listing of 
subroutine S1 1 (link 2) 


LABEL 

CE2S11 

SIJHKOIJIINH S1L 

C GENERATES FOR ELEMENT TYPE 11 SIIFFNFSS AND LOAD MATRICES 
DIMENSION I A f 1 ) ,4A| L >,S( l).N(fl).. 071(71 I ,0331 3, 3), £2213, 3) 

1 ,P(24| ♦UVI2AI ,XI8 I ,Y(B) ,ZlB| ,XDI?) ,vni7 1,10(7 J ,GK 1 I 
COMMON IA,AA 

EOUtVALENCtM J A, AA) ,1021,03 3) ,1 021( 10 I . *?? I , ( 02 1 119 > , 6 ) , ( 02 M 20 ) , G I E 2S 1 1 0Dft 
€00 I VALENCE CIAI1),IN),(IA[2),|BN],MA(3),M),MA(4>,IP),UAI5), F2S1M07 

UPRS? (IIM6), I TYPE I , ( 1 A < 7 ] ,1MATI t ( 14(H) , I DEG I * < 1 A f 9 I t JNX ) , I I A I lOI ,E?S 1 IflOB 
2IH),IIAIlll,lR),(lA(L2l, iMMX), I I A I L 3 I , I MMy ) , | 1 A ( 1 4 > , | MM2 I t ( | A < 1 5 I , E7S U 009 
3IRFI ) , I I A ( 16 ) , I ARE I , I I At 17 > ,N| 1 ) I t (| A (25 1 ,M) , I I A 12 6) , I TY > , I I A 127 I , £2511010 
41STRI , ( IA( 28) , I ELT) , I I A ( 29| , ITEM) , I I A f 30 1 , I T I C I * { 1 A < 31) , I MET 1 , F2S11CJ11 

5( IAI32 I , ISUK>,(IA03] 'INCH ,MA04}'IHS| t < IAI36),1D5)«(1A<37I, F2ST1012 

6IQR!)I , ! I A< 3B) , IORDI I , I IA| 39) , ACEL 1 .< I A < 50) , J 1 >,< 1 A ( 5 1 } T J2 > , E2SL 10)3 

7( 1A<52 lfJ3l ,( ]A<S3l,J*l , ( IA(54)«.I5>, 11*1551 ,J6),< 14(56) ,J7| , (TA(57EZSlini4 

8),J8| ,( JA(5SUJTY)« IIAOV), IM1, (IAI60K1BO), f iAtbll, I fft|,| lAI62)«f2$lL011 

911 A) , HA (631 , IDT I , MA(64>,IOY|,nA{65),1TE),MM All. I TAP) F2S110I6 

EQUIVALENCE 11 A ( 6ft ) , 1 C A R J , M A < 67 ) , I C 1 X ) , ( I A t AH ) , T C 1 Y) , I I A I 69 1 , F2SL1017 

1 TC 12 I , t lA( Yn) , ICE f > , ( IA (71 } , IXX) , f IAI72I ,1 YY>, I IA{?3) ,1ZZ) , F 2 S) TOIB 

21 IA( 74) , 1 IC I , ( T A < 75 ) , IOEF ) , I I A ( 76 ) , I S Tl . ( I A ( 77 > f 1 1 $ ) fcVSl 1019 

i»C I A (78) , IGEKJ.t !A(79),ltRR) , ( AA ( BO ) , T F I , ( A A < 81 ) , DT ) , ! A A I 8? ) , OG ! , E2S 1 1020 
4| AA| 83) ,AL1 ) , ( AA(84) ,AL7 I . ( AA(R5) ,AL3 t . ( AA| «h) , 021 I , ( AA( 107 > ,P) T E?Sl L021 

5IAAU31) .UVI ,<AA( 155 1 ,XI , (AA()63),Y) ,(AA| 171),Z),(AA< 1791 .XD> T E2S 11027 

6IAA11B6)* Yl) ) , (AA(193),Z0) ,(AA(35l ) , S ) » t A A f AO ) • ZGEM) E?Sl 1023 

7 r I AA ( 42 >,INP),[AA|43),I PRG I ,<AAI44), I PEN I , < A A( 45 ) .CGNS ) , 1 A A ( 46 ) , JUE25 11024 
HJ « (44(47 ) , G1 ) , 1 A A ( A3 ) , G 2 I « ( AA I 49 J *C*3 ] F ?S 1 1025 

ECU I VALENCE I IAI3A9),NTIC) , I IAI3'tB),1SDTI,(lA»3A7),ISr>Y),| UI346) E2S 11026 


, I SDZ I , ( 1 A I 343 ) T J9> , (1A< 34* I , JLOI . MAI 3*31, JPR5>t I I A I 3*2 ) - JSDY I 
2 , 1 1A( 34 L I , JSDZ I , I I A ( 340) , J ARE > , I 1A I 339) ,JMMX ) . ( I A ( 33fl) , JMKY) 

3, MAI 337 J,JMMZ), (IA(336),JMFM , (I A ( 33 5 I , I TAS ) , (J A I 334 ) , I OZ I 
4 f ( 14(333)' I PR I » I AA I 332 )« DRY I , ( A A I 33 1 I , OGL ) , < AA ( 330 ) , PRFS ) 

5, I I A ( 329 ) , IPIR) 

DIMENSION EM(4.4).FN(4,4) ,0(4,4| ,0 I R < 3 , 3 ) . IUJM I 1HI 
EQUIVALENCE I AA ( 200 I ,EMJ f {AA(2l6),EN) * < A A I ?32 ) , EC* I , { AA ( 2*8 ),Q), 
1( AAI264J ,I)IK).(AA(279) ,ODM ) , I A A ( 29 7 1 ,A2) 

TRIANGULAR SHELL ELEMENT 
CALL CDRT 
CALL S07 
I$HF=6*I I DS-t i | 

IESS-9*)n5 
DO ) 1-1,9 
lESS=IESS-mS 
IES=1ESS 
00 2 J=1 ,9 
I F5= I E S + l 
I YE= I ES* I SHF 
SMYE)*&MES) 

SUES 1-0. 

CONTINUE 
UU 3 1^4,9 
ilV( 1*61-09(1) 

DO 4 1-1 , IMS 

II- IMS+I 

12=JMS+|1 

CIV ( 1 ) =x I I IfDT+ALl 

UV( 1 1 > =Y ( I )“0T*AL2 

UV( I 2 ) = 0 . 

CALL S 05 
IPEN-3 
DU 11 1-1,3 
p( |46 i = pi n 
PU )=0. 

TRANSFtJHM S , P , UV INTO OVERALL SYSTEM 
CALL TRAN I P , 0 ) 

CALL TRAN (UV,0> 

CALL STRA 

RETURN 

END 


62S) 1027 
E2SU02R 
F2 SI 102 9 
E?S1 1030 
E2SL1031 
E2S1 l(J 32 
E2S11 013 
F2S11034 
E2S11035 
E2S1 1036 
EZS1 1037 
F2S1 103B 
F2511039 
F 2 S 1 1040 
F2S11041 
F2S1 104? 
E2SI 1043 
E2SU044 
E2SU045 
F2S11046 
F2SU047 
E2SD04P 
F25U049 
E2S11090 
F2S 1 1 051 
F2 S 1 105? 
F2SI 1053 
F2SU0S4 
f ?Sl 1055 
F2S11056 
F ? S I 10 57 
F2S1105R 
F 2S 1 10 59 
E2S11060 
FPSllOhl 
F 75 I 1062 
F25U063 
E2SU064 
F?S 11065 
E2S1 1046 
F7S11067 


Table VII-35. Source program listing of subroutine SI 3 (Link 2) 


* LABEL 

CE?i>l5 e. F2S13000 

SUBROUTINE SI 3 F 2 S 1 3 00 1 

C GENERATES FOR KLFMFNT TYPE 13 STIFFNESS ANn LOAD RATRICFS F2S1300? 

D I MENS I UN I A f 1 J ,AA<n ,SI I ),NIB) ,021(21 ),D33l3.3l »F22(3,3I F 2 SI 3003 

1 ,Pf74|.UVf24| T X|R),Ylfl) t Z(H) t X0(T] , YU< 7 1 , Z IJ I 7 I , G1 ID f?S 13004 

CDMMON I At AA E2S13005 

ECU I VALENCE f IA,AA),(n21,D33) , (021 ( 10 ).E 22 ) . I D?lll9),E) , I0?1 1 201 ,GI F2S! 3006 
ECU I VALENCE (|AMI,IN),MA(2l,IHNI.(IAI3l,IT),MA(A),IP),nAI5)i F2 SI 3007 

1 I PRS > t 1 l A ( 6 ) , I I YPE) , I I A I 7 ) ( 1 MAT ) , I i A I A ) , I OFF, ) , I I A [ 9 ) < I NX MIM10) .F2S13008 
2IH), MAI n I I IA) ,MA<12), IMMX) , ( I A ( ] 3) , IMMY) , I I A ( 1 4 I , J |«W/ I i ( 1 A{ LSI ,F?S13O09 
3IMFI ), [ I A( 16) ,1 ARE) , (I AM 7) ,N<1) ) , UA( 26) ,M) ,MA(26) , ITY) , [ |A (27 ), E? S 13010 
4ISTR), (|A(2fl) , IELTI , MA(?V) , ITEM}, MAI30I, 1TIC J* I I AI31 I , JMETI , F2S130H 

5( I A (32 | , ISUM I, ( I A Ml I , INI)) ,(| A I 34 I , IMS), ( I A I 36) t ID$) , U A I 37 1 , F2 S 1 1012 

6 1 DR D ) , ( |A<38>. I URDU, (| A [ 39 I . AC.M I . ( T A r ■in i : j i ) , < I A ! £ i ) , J2 ) , risiSGl 3 

M I A I 52 I, Jll , I I A ( 53) , J4 ) , | I A I 44 I , JS) , | l A ( 55) . J6I , ( 1 A I 56) ..17 I . ( I A I 57F2 SI 30) 4 
8), JB),( |A(5R),JTY| , II 6149). IH8), (14(60) , IttlJ), II A I 61 J , I 10), ( ]A(ft?) ,F?S130t5 
91 IAI , ( IA(63) , lf)T I, I 1 AI64J , |0Y) , I lAf 65), ITF) , UAI41 ) f ITAP] L2 SI 1016 

MJU1 VALENCE ( IA (66) , ICAR ) , ( I A I 67 ) , I C I X J , ( I A ( 6A ) , I C I Y } , ( I A ( 69 1 , F PS 1 1017 

LICIZ}, { IA(70) , ICFI ] ,(| A(71 I ,IXX] , [ IAI72I, I YY),UA<?1) . IZZ ) , E2 Si 3018 

2 ( 1 A ( 74 ) , I i C J , ( I A ( 75 ) , i DE F ) , H A ( 76 ) , I S T I , { 1 4 < 77 ) » I I S I F2S13019 

3, MAI7BI , JGrM I , < 1A(79| , IERR) ,( AA(RO) . TE) , I AAI81 I ,01 J , ( AA I fl?| tDOI , F25 13020 
4(AA(83) ,AL1 I » (AA(64),AL2 I, ( AA ( 05 ) ,A|_3), 1AA(86) , 021 ) , I AA I 107 ) , P ) , E2S13021 

|3}|*' lv lT<AAn55),X), I AAI163) ( Y),IAAU71) ,Z I ,<AAI 179I,XI)I, E2S13022 

61 AA(186),YDI.( AA(193),ZD), ( AA(36I ),SJ , f AA(40) ,ZCEM) F2SL3Q2 3 


7, ( AA (4?) ,INP). (AAU3), IPrtr.), |AA(44> . iPhh) , (AA[45| ,CfTNS) , (AA|46) ,1UF2S13()?4 

H) , I AA | 47) ,G1 ) , { AA I 4P ) ,G21 , ( AAI 49) ,03 I F?Sl 102 6 

EQUIVALENCE { IA(349),NTIC ) . ( IAI34R) . 1 SDT) ,UAt347) . ISI>Y| ,( |A(34ft) F2SM02 6 

1,ISDZ),UA(345I ,J9) , I I A (344), J1Q) , ( 1 A 1 30 ) , JPRS I , { I A ( 342 ) . J SOY) F2S 13027 

2, (14(341 ) , JSOZ | ,UI ( 34 0), JAkF ] ,( |A( 339 ( , .IMMX ) , I 1 A I 33B I , JMMy | F2 S J 3028 

3, < I A ( 3 3 7 } , J MM Z ) , ( I A ( 336 J , J*FI ) , I I A [ 335 ) , [ T AS I * ( 14(334) ,102) F2S13029 

4 , (I A (333) ,1PR), ( AA(312 ) ,nGY) , |AA(331 ) .UGZ) . I A A ( 330] , PRFS1 F 2 S 1 3030 

5 , ( 1 A ( 32 9 ) » I P I R I E2S13031 

EQUIVALENCE I A A I 29 ] I , A2 I , ( AA ( 3?4 ) , PM f.l) ) F2S13032 

CALL CMHT F2S1303 3 

CALL SOS F2S11014 

CCNT-PRESYA2/6, F2S11015 

P ( ? J = CCNT F2S13036 

P(B)=CCNT e?tnA|n 

pisi-lcN) F?S r 3 0 3 F? 

PHCn-O, F 2 S 11039 

I PEN- 3 E2SM04D 

I I GE= I GEM F2SI3041 

1 GE M=0 F2S1304Z 

CALL TRAN IP.O) F2S13043 

CALL STRA F2S13044 

IGEMsI JGE (^ 7 S I 3045 

RETURN P2SI3046 

END F2S13047 
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Table VII-36. Source program listing of subroutine SI 5 (Link 2) 


* LABEL 

CS2S1& E2S15000 

SUBRnilTlNE SIS F?S] 5(101 

C GENERATES .FDR ELEMENT IYPP IS SlIFPNESS AMO LDAO MATRICES E2S150O2 

DIMENSION U|l)tAMl),Slll.T{fll,021(?I > , 033 13 , 3 > ♦ C 22 1 3* 3 > E?Mb003 

l ,P(P4),UV(24),X(8),Y($| ,ZI B) ,XDI7>,YOI7),ZOlTJ ,G1 (l I F7S 15004 

COMMON u,aa FPSL5005 

EQUIVALENCE! IA.AA) , 1021,033) . I 021 < 10) ,622 I , I D21 ( 19 > , £) , I DPI ( 20 ) , G ) F2S1 5006 
EQUIVALENCE HA(l),lN),IIAt2>,l6N),<lA(31,n],UAI4|,lPl,<]A(5l, F2S 15007 
) |FR$J , <IA<6) , 1TYPE) ,( IM7I . I MAT I , ( IA(«| T UlEG), 1 I A I 9 I . INK >, II A I 10 1.F2S 15008 
21H)«||A(ll).IH),IIML2liI MMX ) , I 1 A I I 3 ) < J MMY ) , I Tfil 14) , I MMZ I , ( IAI1S) t EPS 1 5 009 
3l«Pi ),UA(16),IARE> ,( 1AU7>,T(1I ),I1A (251,0) , I TA 1261 , TTY) , (IA( 271 .F25150H1 
4JSTRI ,UA(2B> ,IELT), I IAI29I ,TTEM( ,IIA| 301 ,ITIC» , ( IAI311, IMETJ , E?.SL5nil 
5IIAI32),IS(JM),UA(33),[ND),( |A{34),|MS>.(1A(36),I0S>,(|A(37) ■ EPS 1501 2 

6IURU] ,( 1A< 3RJ , IUR01 1 , ( ] A( 39 ) . ACEL > . II 4 I 50 1 . J 1 ) , (I A I 5 1 ) , J2 I * FPS15CJ13 

71 1 A 1621,33 I .CUI53I ,J4},H A(54),J5l ,( IA| 551 , J6>, I I A I 561 ,J7), I T A ( 57E2 S1501 4 
Bl » JBJ ,( 1A< 5B) , JTY ), I 1 A I 59 I , I 3b > , ( I At 60 ) . I Bfl 1 , < I A I 6L I , II fJ 1 * I I A I 62 I ,E ?S 1 50L 5 


91 


IS 


32 


E2S15016 
F2S150L7 
FPS1 501 8 
E ?S 1 50 1 9 


F2S150P2 
EPS 1502 3 


91 IA) , | 1AI631 | 10T ) , ( 1 A I 64 1 i I UY ) , I I A 1 6b I , IT F 1 . ( I M 4U , L T 0 f> > 

EQUIVALENCE I I A I 6fc > , I CAR ) , 1 I A [ 6 7 I , I C I X ) , I 1 A I 68 I , I C I Y 1 , < 1 A ! 69 > 

1 ICIZ1, UA< Ydl'ICm , (1A( 71 ), I XX | , ( 1AI72), |YY| , ( T A ( 73 ) , 177.1 , 
2I1AIV4 )«I!CIi( 1AITSI.1D6PI.(IAI76}.1ST),| I At 77) , IIS I 

3, ( 1AI78) ,IGEM), I IAC79I ,I6RR) ,(AA|801 ,7E),lAAffll) ,0T| , ( AAIB2) ,D&I , E2S 15020 
MAM83),AL1 I, (AAIB4I , AL2 > , < AA t BS I . AL3 ) » ( A A ( 86 ) , DP 1 ) , I AAU07),P1 , E ZS i 5021 
5|AA 1131 I ,UVl ,C AA(155 J ,X>, I AAI 163),Y) ,1 AA< 171 l,Z) , (AA(179) ,Xf)l . 
bl AAI 18* I , YO) , I AAI L93),Zl)l . I AA I 35 1 ) , S 1 , t AA I AO J , ZGEM ) 

7 , l AM4? | , INP ) , { AA (43 > , [PRO ) , I AA{44 I , I PI : N> , I AAI 45! »CNNS I , < AM 46 > , lUEpSlbOP4 
61 »(AA|4T| ,Gl),(AA(48),Gp>, (AA{4?| ,G3J E2S15025 

EQUIVALENCE ( 1 A I 34-9 } .NT ] C I , ( |A( 348 I , 1 50T ) , I I A I 347 ) . I SOY ) , I I A I 346) EPS 1 507b 
l«150Z)'(|AI345).J9),<!A(3«4>,J|0),r IM 343), JPRS), I 1*042! , JSf>V) EPnb 02 ( 

?,( 1AI3411 ,JS0Z I.UAI 340),JAR£) , t IAI339] , JMMX I , < I A ( 338 1 ,JMMV) 

3, ( I A (3371 tJHMZ), I IA| 336),JMFI 1, ( 1A| 335), I TASl , I IA|334),1DZI 
4,1 I A< 3 33), I PR), I AA ( 332 ) , Dll Y I , ( AAI 331 ) . UG 1 J ,( AAI 330) .PRES I 
5, (IAI329KIPIR), I I A I 320 ) ,NAV ) . I 1 A I 327 ) ,CFF ) , I JAI 3P5I , I 7 T T > 

DIMENSION EM(4,4),EN(4,4| r Q( 4 , 9 I , CO I 4, * ) . CAX ( 4 > . 7. 2 1 121 I . V I 3 1 
EQUIVALENCE IAAI200I ,eMl, IAAI21M ,€N), I AA(232),EOI , IAA(?/.fi) t O| 

1. (AAI291 I ,A2),(AA(292I ,UX >, IAAI2931 ,CAX) , |AAl2b4},Z2l) 

EQUIVALENCE I AAI 2971 .XBAR I, I A A ( 296 1 » YBAfl ] , <CAX,V) 

SET HU1JNDS FOR X Sl>B I AND X SUB I, Ml 
FR2-0.1 
ER1-1.E-4 

XBAR=| X II )+X 12 >4X<3 ) ) /3. 

TER=T6 
Tt=XBAR 
DO 91 1=1 ,21 
Z2 L ( 1 1 =021 < 1 1 
MJM.ll* 721(11 
D33 1 1 »2 I - ZZHPI 
D33t 1,31“ ZZ1 ( 4 | 

03312,21= Z2 1 < 7 1 
03312,31= Z2U9J 
D33 1 3 , 3 1 = Z2 1 1161 
03312,11- D33 (1,2) 

D33I3,LI= 033(1.3) 

033(3,2 I = 03312,3) 

CALL SOS 
CALL TRIM 

YRAR? I Y (1 )+YI2)+Y(3l )/3. 

YBAB=0. 

E 22 1 1 ,3 ) = Z21 (3) 

E22(2,3)-Z2l tfl) 

E2? (3,3)=Z21 1131 
UU ] 1=1,3 

E22I1 ,L)=XRAR*E22I I ,31 
E22( 1,2) =YHAB*E 22 ( 1 . 3 ) 

Fin] ,/(2,#A7) 

EQ(3,1) K X(2I*I Y(3)-Y0AR)-XI3)*I Y(2)-YBAR ) 

EO(3,2>=X(3l»(YU)-YBAR)-X(l M(Y| 31-YBAR) 
EQ(3,3)=X(L)*IY(2) _ Y0Aft)-Xl2)^(Y(ll-YBAR) 

COMPUTE THE INTEGRATION CONSTANT 
DO 15 1=1,3 
V< n=Y( 1 }- YBAR 
DO 32 1=1,4 
DO 32 J =1 ,4 
01 I, J 1 = 0. 

11=0 
NN=0 

DO 17 1=1,3 
IF (XIIH 120,20,121 
121 IF txm-Efttl 20,20,51 
120 I ERR= 1 


RETURN 
51 IAX±I 

GD TO 17 
?U NN=NN+1 
L L“ I 

1/ CONTINUE 

IF (NN-I I a, ft, 102 
ft MM=0 

00 Ll L* 1 . 3 

M = L + l 

IF (M-3) B1.BWR2 
K2 M = 1 

Bl XXXaX(M)-XIL I 
YYYsV(M)-VlL) 

IF (A6SF(XXX/S0RTF(XXX*XXX«YYY#'YYYJ )-EH2l 21.21.22 

21 022=0. 


F2S1502R 
E2S15029 
E2 S 1 5030 
t 7S 1 50 31 
E2 S 1 4032 
F PS 15033 
E2S15034 
f PS 1 5035 
E2S15036 
F7S1 503 T 
F2 SI 50 IB 
F PS L 5039 
E2S15040 
FPS15041 
F2S1504? 
EPSl 5043 
F 7S 1 50^-4 
E2S15045 
F PS 1 5046 
E2S1 504/ 
EPS I 504R 
FP SI 5049 
F2S15050 
F2 SI 5051 
E PS l 5052 
E2S) 5053 
E2S15T154 
EPS 1 50 55 
E2S15056 
F?S 1 50 57 
E2S1S05B 
E2S15059 
EPS15060 
EPS 1 50/>l 
FPS150A2 
EPS15063 
F PS l 5064 
F2S15065 
FPS15066 
EPS15067 
E7S1 S06R 
F2S1 5069 
E2S15070 
F2S15071 
E2S15072 
E2S1S0 f 3 
F?S1 5074 
F7S1 5075 
FPS 1 5076 
F PS 1 5077 
E2S1 5078 
E2S 15079 
E2S150B0 
E2S150B1 
E2S150BP 
F PS I 50 B3 
E2S150B4 
F PS 1 5085 
EPS150B6 

5 PS 15087 
E2515tina 
FPSL50B9 
F ? SI 5090 

6 PS 1 5091 
E2S16092 
E 2S 1 5093 
E 2 SI 5094 


□23=0. 

Q33=YYY 

GO TO 50 

22 IF |ABSF( XlM)< r X(Ll)*ERl 1 24.24.4U 

24 JF (MM I 11,23.11 
23 MM=1 

IF ILL-L) 26.25.p6 
26 N=M+1 

IF f N- 3 1 2T,27,2R 
Pb N= l 
2 / GO TO 29 

25 N=M 
M=L 

29 K^N^l 

IF IK-31 30,30,31 
31 K=l 

30 GG=LTIGF |XfK)/X|A'l 1 
YKN=V( KJ-V IN) 

Q33=V I N 1 fGG 

023=2.#VIM]««-24GG+YRN*(2.*V(M>+v(N1+V|K) I 
Q22=-6.*VIM)^*3*GG*YKN*(2.#(VlN)#t-P-*-VlNI»VIK)4-v(X 
l *6.#VIM| **24 1.*V(M)MV|N)+V (K|>) 

GO TD 50 

40 GC=LOGF|X(M)VX(L II 

F=(X(L)6V(M)-X(M)<'V(L I 1/XXX 
033=F4GG 

023 = YYY6(3.4F4(Xai*V<L)-XfM) YV(M) > / XXX >-2 . *F**2*GG 
0P2 = YYY* I - V I M ) I 11 ,»X(L )■**!-! .* X I L > *X ( M I + P. *X ( M } **2 ) 

1 -VIL)4*2*(11.< I X(MI*4 2-7.«X(L1>»XIM>+2.>»X(LI* ! »?1 

2 — V C L 1 *V I K ) * I 5 -4X (Ll**2+5.*X(M) < l *2-*P? * •'X ( L)* > X(MI ) l/XXX**2 

3 46.*F4*3*GCJ 

50 0(2, 2) =012, 2)4 Q2 2/1 9.4API 

01 2, 3 ) =01 2,3) 4021/ IP.* AP ) 

01 3,31=0(3,3 nt)33/|0. 5*A2| 

11 CONTINUE 

Ql l,l)=XBAR 
0 1 1 , 2 ) - YB A8 
01 1 ,31=1 . 

012,11=0(1,2) 

01 3,1) =01 1,3) 

Q! 3 , P ) =01 2,3) 

I AX = 4 

L02 CONTINUE 

0(1 2 1 = 1,3 
00 2 J= l » 3 

2 033 ( I , J ) =Z2 1 I L 2 1 *0 ( I , J I 
CALL IRM I T>33 » E D , Q, 3 . 3 ) 

CAX ( 1 1=0. 

C AX I 2 I =0. 

CAX( 31=0. 

CAX I IAX)=1. 

0( 1AX, l AX 1=271 (12 )*XBAH*< CAXU J*FN( 3, 1 )+CAX(P) *EN ( 3 , 2 ) +C AX ( 3 ) • 
l EN(3, 311**2 
CALL AOM IS, 105,0,3,1,1 ,F11 
CALL TRM IE2PtE0,EN,3,-3) 

CALL AOM IS, IDS, EN. 3,4,1, Fll 
CALL TRM IE22.EQ,eM,3,-3! 

00 3 I = L , 3 
1)1) 3 J-I,3 

3 EMI i ,J)-EMl I ,J)+CMU»n 
EM( 2 , 1 J “EH I L , 2 ) 

EM | 3,1 )=EM| 1,3) 

€M( 3 , 2 1 = EH I 2 , 3 ) 

CALL AUM IS, ll)S,FM,3r 1 , l ,F 1 1 
TE=TFR 

TER=( IX(1 I— XBAR|*(YI2) —YBAR ) — IX( 21— X BAR )*| Y( 1 ) -YB AR ] ) / I 2 . *A2 ) 
C0NS=TE*ACEL*A?/4. 


F7S15095 
F P SI 6096 
FPS15D97 
F7S1509R 
F?S I 5099 
F 7 SI 5 L On 
F2S1510L 
E7ST 51 07 
F7S15103 
EPS I 5104 
F7S1 5105 
F2S151D6 
E2S15107 
FP5I 51(18 
FP Si 5 109 
F2SI 51 10 
F2S1511 1 
F251 5112 
EPS15113 
E2S15114 
F2S15115 
E7S151 1 6 
E2SL5! 17 
E251511B 
E2S15L19 
E2 SI 51 20 
E2S15121 
E2S151P2 
E PS 1 512 3 
E2S15LP4 
E 25 ( 5 1 7 5 
F2S151P6 
F251512T 
F2S151P8 
E PS 1 5 12 9 
E2S15130 
F7S1513I 
(12 SI 5 1 32 
E25I 5133 
F2 SI 51 34 
E2S15135 
EPS 151 36 
E2S15137 
E2S1513B 
F2S15T39 
EPS 1 51 4() 
E2S15141 
EPS 1 51 4p 
F2S1 5143 
E P 5 1 5 1 44 
E2S15145 
EPS15146 
F2S15147 
EPS 1 51 4ft 
F7S1 5149 
EPS I 51 50 
F7S1 5151 
F PS 1 51 52 
E2S15153 
S2S15154 
FPS15155 
FPS151 56 
F2S1 5157 
FPS1515B 
E2S15159 
EPS15180 
E PS 1 51 M 


0( 1 , 1 1=TER*( t X ( 1 l-XBAR) **2+ (XI 1 P -XBAR ) * I X ( 2 1-XBAR 1 + < X < 2 I -X8 AR ) **? I F2 SI 5 1 62 
1 *XBAft**2 E PS 1 51 63 
0(2,1)=TER*( ( Y(1 I-YBAR)*I2.*{ X(} 1 -XBAR ) ♦ ( X ( 2 )-XRAR ) I + ( Y I P )- YBAR ) * F 2 5151 64 


1 I I XI 1 ) -XBAR ) +P ,*IX( Pl-XBAR) I 1 /P. 

Of 3, I ) “XBAR 

no 4 1 = 1.3 
Q I 1 , 2 ) - 0 , 
no 5 K= 1 . 3 

5 01 I, 2)=Q( I, 2)+EQ( I, K)*0(K,1 ) 

4 CONTINUE 

DU 6 1=1,3 

P( I |=C(1NS*GI*Q< I ,P) 

6 P| I+3)=C0NS*C2*0( 1,2) 

IF (JPRS) 70,85,70 

70 IF (ITTT-1P 7 1 , 7 1 , Bb 

71 KA V=NA V 

GD HI (RO,flO,B5),KAV 
HO CDN5=I X(l)/3,+XI2|/6.)*PRES/CF6 

TER=(X(1 1/6. +X (21/3. )*PRES/CFE 
P 1 1 >=P< 1 1+YT1I 1 l*CC)NS 
PI21-PI 2 1+Yf)( I )*TER 
P ( 4 ) =M ( 4 J -X D ( 1 I =CONS 
P ( 5 ) =P I 5 (— XOI 1 )*T£R 
8b C(INS=0. 

J PBG=-1 
00 92 1=1,21 
92 D2im=2P)III 

RETURN 
ENPJ 


E7S1 51 65 
E7S151 66 
F2SI 5167 
EPS1516R 
F2S15169 
E2S1517D 
F2S151 71 
EPS1517P 
F2S1 5173 
E2SL5174 
FPS15175 
E PS 1 5 l 76 
F2S1 51 77 
E2SL517R 
F2S1 5 L 79 
EPS151R0 
EPS 15 l Bl 
F2S151R2 
FPS1 51 R3 
E251 5 1H4 
F2.S)5185 
FPS151B6 
EPS151R7 
F2S1S188 
F?S1 51 89 
E2S1519D 
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Table VII-37. Source program listing of 
subroutine S17 (Link 2) 


* LABEL 

CE2S17 F ?S 1 7000 

SLfBROJIlNE S17 62 S 1 7001 

C GENERA I HS FOR ELEMENT TYPE 17 STIFFNESS AND LOAD MATRICES E2S17002 

DIMENSION ( A ( ) ) , AA ( l } , S I 1 ) ,N I 8 I , 02 L ( 2 L > , 033 I 3,3) ,62243,3) F2S 17003 

l,P(?4),LM/{24),X(8),YJft),Z (K).XIM7),YI)(7 J,Z0(?),Gl ( L) F251T0D4 

COMMON IA,AA E2S17005 

EQU 1 VALENCE <1 A, aA),(D 2 1,033), 1 021 fl 0 ) , 6 22 ) , < 02 1 UV J , E ) , < 021 < 20 } ,G ) 6 2S 1 7006 
EQUIVALENCE nAM),lN>,IIA<2niBN) f <IA(3],lT),IIA|4),|P|,(IA(5l, F2S 17007 

1IMHSI , < IA(6),M YPE) , t I A I 7 I, IMAT). I IAI Bl ,10601 , < 1 A I 9 } , 1 NX > , ( I A 1 1 0 I ,P PS 1700 b 
2]H), U A| ll ),IB>, II A|12| , I MMX | , (IAU3I » 1 HMY ) , (IAI 14), I MM? J , < I A ( 1 5 ) , E2S 17009 
31MFI ) ,nAU6),fARE), I TAI L7|,NU ) |,( 1A(25),M), I JA(2A), ITY), I IAI27I ,62517010 
41STR),||A(28|,IELT I ,HAI29>, ITEM), ( JAI 30] ,ITIC>,( |A(3l > , IK£T> , F2S 17011 

51 IA(3Z I , I SUM I , I IAI 33), INDI, ( IA( 34), IMS] , MA(36), 10S),UA(37>, E2S17012 

6IORD) , I 1AI3HI , HlRDUt { IAI 39 I , ACEL ) , ! I A I 50 I , Jl ) , I I A ( 5 1 > , J2 ) , F?S 17013 

71 IA(521 »J3>, (IA(53),J4), < IAC>4J ,.15) , I U(S6),JA), ( 1A(56) , J71 ,( IA(57F?S17014 
Bl ,J&).(|A(58I ,JTY>, I (A(59| ,180) , I IA<60> , IROI ,< IM6L), !ID>,< IA<62> ,62S 17015 
91 IAI, ( IA(63),1DTI, < 1A(64>,10Y|, ( )A(65), ITF),MM4l I ,IT4P> F2S17016 

E0U1 VALENCE UA(66) . ICAR), UA(67), 1CIX) , I IAI6R) ♦ ICIY), ( |A{69| , E2S17017 

1 ICI2J , ( I A ( 70), ICE I ), I IAI 71 I , I XX), I iAf 721, IYYI , ( 1A(73), IZZ I, E 2517018 

21IAI74 | ,riC), IIAI75I rlDEF I ,MA(76) ,IST) , I IAI77] , MS) F2S17019 

3.IIAI78J , lGEM|,UA(79),lERR),IAA{80l,TE),IAA(fll I (AA(B2),nG) , F 2$ l 7020 

4(AA(83I ,ALl>, IAAI84I ,AL2>, ( AAIB5).Al3l ,UA(B6> .021 ),(AA[ 107) ,P), E2S170?) 

SI AA(131 1 ,UV), (AA ( 1 551 ,X I . < AA( 1631 ,Y I . ( AA( 171 I ,Z I , (AA( 179) ,Xf>> , F?Sl 1022 

6(AA( l 86), YD), I AA 1 193), 21)) , ( AM 35 LI .SI » ( AA I 40 ) . ZGEM > E7S 17023 

7, I AAI42), 1NP), I AA|43) ,IPOG) , ( AA ( 44 > f I PEN ) , I A A ( 45 ), CONS I , ( AA1461 , H>62S 17024 
81 ,<AA(47)',G1 l,(AA(4 8),r,2), ( AA(A9),G3| F2S 17025 

EQUIVALENCE <IA< 3*9 I ,NTIC ), fIA( 348 ) , I SOT >, I IA I 347 ) , I SOY] , M A< 34ft) E2SL7026 
1, ISOZ). { [ A { 345 ) . J9),f IA( 344] , J 1 0 > , I I A ( 343 1 , JPRS ) , < I A I 342 ) ,JSDYl E2S1 702 7 

2, I IA 1341 ),JS»Z>, I I A (3401 ,JARE1 , I IAI 339) .JKMX), < IA133B1 , JMM Y) F2S170PB 

3, I IA(337),JMMZJ ,( 1AI336I, JMFI I f ( I A 1 33 5 I , \ TAS ) i (I A (314 ) , I 07 I E2S17029 

4,IIAI333),lPRl,<AA(332l,t>GY)tlAA«331),0GZ] ,(AA(330I .PRES) 62S17030 

5,UA(329),1P1RI 62517031 

0) KENS I ON EK(4, 41 ,EN|4, 4) ,0(4,4) .60(4,4) 62S17032 

EQUIVALENCE I AA (200), EM), < 64 ( 216), 6N I , (AA(232),EQ), |AA(2*8),0), E2S 17033 
1 ( AA< 2641 , E 1 ) , < A A ( 26 5 I , F 7 ) , I A A I 2 6 6 ) , fi (IY ) , ( A A ( 2 67 I , XAV ) E2-S1 7P34 

ER1-1.E-2 62517035 

8DY=S0RTF l KOI 1 ) **2 *YD < 1) **2 I E2S17036 

XAV= (X( 1 )+XI 2 ) 1/2. FPS17037 

IF (BOYI 1,1,41 62S17038 

41 IF (XAVI 1,1,42 F2S17039 

42 IE 1X111) 1,43,43 E2S17040 

43 IF ( X 1 2 1 ) 1,44,44 F25I7041 

44 AL=XD(1 l/BOY 62S17042 

RE = YD| L P/80Y E2S17043 

GA = BOY/XAV E2S 1 7(144 

0(1t1)--AL E251/04S 

011 . 2 ) = AL E2S17046 

011.3) =-BE 62S17047 

0I|,4)=&6 F2S17C14B 

Fl-TE/GA E2S17049 

CALL TftM (033,0 , FO, 1,4) F2S17050 

CALL ADM (S, 10S, 60,4,1 ,1 ,FW F2S17051 

Fl = I F*D33 (1,2) F2S17052 

0(1,1 |»-4L F2S170S3 

0(2,?|=AL EPS 1 70$4 

0(1,21=0. F2S17055 

0(2,11=0. 62517056 

CALL ADM (S, IDS ,0,2, 1 , 1 . F l J F2S17057 

0(1,1 )=-BE/2. 62S1705B 

0(2,11=011,1) E2517059 

0(1,2) =-Q( 1,1) F7S17060 

0(2,2)=0l 1,2) F2S17061 

CALL ADM (S, IDS, 0,2, 1,3, El > E2S17062 

IF (ABSFI ALI-6R1 1 24,24,25 E2S17063 

24 Fl=T6*D33( 2,7 l*G6 E2S17064 

OU ,1 1=0. 33333333 F7ST.7065 

0C1 ,?)=01 1 ,1)72. F7S17066 

0(2,11=0(1,2) F 25 1 7067 

0(2, 2) -0(1, 1) E2S 1 70 6B 

&0 TO 30 E2S17069 

25 IF (XI1I#X{7M 26,23,26 E2S17070 

73 F1=TE*D33(2,2)/(2,*AL) FPS17071 

IF ( X | 2) J 271,271,29 €2517072 

271 F1=-F1 F2S17073 

29 0(1,11=1. F?S 1 7(1 74 

0( 1 , 2 1 =- 1 . 6 751(075 

0(7,1 I =— 1 . EPS 1 7076 

0(2,21 = 1. E 7 SI 7077 

GO TO 30 F ?S L 7078 

26 GCL=L(JGF t X ( 2 1 /X M )1 F7S3 7079 

A1=B0Y4GML/XD(1 I EPS170RO 

Bl=l L.-X M )4t;r)L/X0( 1 ) l*80Y/XUm E 251 70ft l 

ci = ( xav/xd! 1 )-2 ,yxi i i/xo( i i + ixm/xtm i j * 47 * 0111 . i*BOY/xrm 1 E2S1 7082 

F1=T6*D33(2,2) E75170R3 

0(1,1 |=A1+C1-2.*B1 E2S170B4 

Oil »2)=B1-C1 62S170A5 

0(2,11=0(1,2] E?S170ft6 

0(?,2I«C1 F2S17087 

30 CALL ADM (S, |0S,Q,2.1,1 ,Fl) F2S170B8 

IP8G=-1 F75170R9 

Fl=-PRfcS*YO(l ) + fiDY* AC€ L* TE*G1 f7S1709D 

F2= PRFS4XDH )+anY*ACEL*T6YG2 E2S17091 

AL-Xfl|/3.*XI2)/6. F2S17092 

Bt=X( 1 )/6.*X( 2)/3. E76I7093 

P(1|=F1*AL E7S17094 

P< 2 l = Fl*BE 67517095 

P(3l=F2*AL E2S17096 

P(4)=F2*BE F2S17097 

9 RETURN F7S1 7090 

1 I ERR= l F?5 1 7099 

G0 TO 9 F7S171O0 

EN0 F 7 S 1 7101 


Table VH-38. Source program listing of 
subroutine SI 8 (Link 2) 


* LABEL 

CE2S1B F2S18000 

SUBKUUTiNE SIB EPSIBOO) 

C GENERATES FOR ELEMENT TYPE 1R SI I F FNFS5 AND LOAH MATRICES E7S18002 

DIMENSION I All I ,AAI1I ,S( n,N(R! ,1)21(21 ),D33t 3,31 ,£22(3,31 E2SIRO03 

l,P(24),UV(24|,X(B) ,Y|8| ,Z(8) ,XO(7),YO(7),2D(7| ,G1 1 1) 62 SI 8004 

CDMMON I A , A A F2S1R005 

EQUIVALENCE! I A , A A ) , ( D2 1 ,033 ) , ( 021 ( 10 ) ,E22 I . ( f)?l (19 > ,E) , (021 I 20 ) ,0 I F2S 1 0006 
EQUIVALENCE < 1 A ( 1 ) , I N) , II A( 2 ) , 1 RN ) , f I A ( 1 ) , 1 T ) , II A I 4 1 , I P ) , ( I A ( 5 I . €2518007 

11PRS), <1M6>, I TYPE) r(IA(7| ,IMAT) , ( | A ( ft } , I DEC, ) . ( 1 A I 91 , ! NX ) , ( 1 A I 10 1 , F2 SI 8008 
?]H),llA(Lll,lB),(|A{l2l,I MMX ) , ( 1A(13) , 1 KMY | ,( I A ( 1 4 } , IMMJI , (( A ( 1 5 ) , F2S 1 8009 
3 I M F I ) , [ L A ( 1 fc 1 . I A R f: I » I I A { 1 7 ) , N ( 1 ) ) , I I ft ( 2 5 I > M) » I I A I 2 f> I , I T Y ) , M A I 2 7 ! , £ 2 S L HO 1 0 
415TR] ,( |A(2fl), IELT), (I AI29I , T TEM> ,( |A(30) , IT1C1 , ( IA(3I ), [MET), F 751 HOI 1 

5( IAI32 I, I5UMI ,( IAI 33) , INDI ,< I A (34) , I MS ) , (I A ( 36 ) , IDS I ,< IA137) . E2S18012 

6J0RDI , UA(38), [0RD1 I , ( 1 A < 39 ) , AC EL ) , I I A I 50 1 , J 1 I , { I A ( 5 L > , J2 1 , E2S18013 

71 IAI52I ,J3). I U(53) ,J4),( IA154I ,J5),I1A(551 ,.16), I 1AI56I ,J7), I I A ( 57E2S 1801 4 
8 I , JB1 ,( IA(58I, JTY),( IAI 59 I, I BB) , t I At 60 I . IRO), < I A 161 I, II[)},( I A { 62 ),E2S18Q15 
9 1 I A | , ( IA(63) ,IDT),flA(64| l lOY),|IAI65|,)TE),IIA(41),ITAP) FPSIR016 

EQUIVALENCE (JA(66), ICAR),( I A I 67 I , I C I X ) , I I A l 68 J , I C I Y I , (I A ( 69 ) , F7518017 

11CTZ1, MAI 70 1, ICFI), I TA(7l ), IXXI ,< |A(T2) , IYYI . 1 1A1731 ,12Z I , E2 51R01B 

2( IA(74), IIC),( LA(75|,1DEF I, ( IA| 76), 1ST), I IA(77| , MSI F.2S1R019 

3, I IAI7B1 ,IGEMI ,(1A<79) tIFRR) ,(AAI 60) ,TE), IAAI81 I ,DTI , ( AA(B2) ,DG) . E2S18(120 
4(AA(83),AL1), (AA(84l ,AL2),(AA(85I ,AL3), (AAI86I.D21), I AA(107),PI , E2S18021 

BIAAI131 1 ,0V), IAAI 155) , X > . t AA I 163) ,Y) . !AA( l /l ] . I I ,| AAI 1 79 ) , Xfi I , F2S 18022 
6(AA[186),YU), [AA{ 193), Zl)), ( A A I 3 6 1 ),S) , (AA(40),ZGtM) E2S1H0 23 

7 t (AA(42),INPJ , <AA(43>, fPBG), I A A ( 44 ), I PEN I ,( AAI 451 .CnNSI , < AA(46>, IUEPSL8024 
Bl , (AA(4?),G1 I , (AA(40),G2J, IAA(49),C,3) E2S18025 

ECU 1 VALENCE I 1 A I 349 ) ,N T I C ) , (I A 1 34H ) , I SOI I , ( IA( 347 ) , 1 SOY ) , I I A I 346) F2SLB026 


1 , I SI12 J , ( IAI 345 ) , J9 I , ( IAI 344 ), J i (J 1 , I 1A< 343 1 , JPRS ) , ( 1 A ( 342 1 , JSOY I 
2,( 1A(341 ) ,J5PZ I ,( IA( 340) ,JARE) ,(IA(339) ,JMMX), ( I A < 33 ft ) , JMM Y > 


E2S18027 

E2S1R02B 



3,( IA(337),JMMZ). ( IAI 336 ) , JMP 1) , (I A < 335 1 , J TA 5 ) , ( I A ( 334 > , | r 1 1 

62S18D29 


4,( 1A(333) ,IPR) , IAAI332KDGYI ,(AA(331 1 , OGZ ) , ( AA ( 330 1 

, PRES ) 

62S16030 


5 , ( I A ( 329 ) , 1 P I R ) 


F7S1R031 


DIMENSION EM 14, 4 ),6N( 4,4) ,014,4) ,60(4,4) 


E2SLRD37 


EOU (VALENCE ( AA ( 200 1 , EH ) , ( AA { 2 1 6 ) , EN) , 1 A A [ 2 32 ) , €0 ) , 

(AA [2461 ,0) , 

625 I 8033 


1 ( AA(264) ,FU , ( AAI 265 1 i F21 , (AA( 2661 ,RDY ) , IAAI P67) , XAV ) 

E2SLB034 

10 

CALL 517 


F ?51 8035 


F2=T6**3/12. 


€7518036 


IF IXOU)) 26,25,26 


62518037 

26 

If IX(i)*XI2M 28,27,28 


EPS 1 8038 

27 

F1 = F2*D33I2,2)* X0(1 ) / ( 2. *BDY ) 


F2S18039 


IF ( X< 2 ) ) 271,271 ,29 


E 75] 8040 

2 71 

F L =— F 1 


E2SLB041 


GO TO 29 


F2518042 

2B 

Fl =F2*Q33I2 ,21*1X01 L t /BOY ) **2 


F2S1B043 

29 

CAM. ADM IS, IDS, 0. 2,5, 5, F l> 


62518044 

75 

Fl =F2*D33 1 1,1) *X AV/BOY 


F2S1R045 


00,1 1 = 1. 


EPS18046 


0(1,21 =-I . 


EPS 1 00*7 


012,1 J — l , 


E2S1804B 


0(2,21 = 1 . 


F2S18049 


CALL ADM (S, IDS, 0,2, 5,5, Fl) 


E2Slft050 

30 

01 1,1 !=-l. 


E7S18051 


0(1,2 ) = 0. 


E2S18052 


OI2,I)=0* 


E2 51 8063 


Fl=sF2«D33(l,2 1 *XD I 1 l/BOY 


E2SLB054 


CALL AOM (5, IDS, 0.2, 5,5, Fl) 


E2 51 8056 

35 

f 1 = TE*XAV 780Y *#3 


f 75 18 056 


EM< 1 ,l)=YD( l 1 


E2 51 80 57 


EMI 1,2)=- YOI 1 1 


E251 8050 


EM( 1 ,3 l=-Xl)l 1 1 


E2 5 1 80 59 


EM ( 1 , 4 ) - XDI 1 1 


E2S1B0AO 


CALL TRM (E22,£M,0,1 ,4) 


E2S18CM 


CALL ADM (S, IDS, 0. 4,1,1 .Fl 1 


E2S1B062 

40 

011,1 )=B0Y**4/4. 


E2S1R063 


PI L , 7 ) = Q ( 1 , 1 ) 


E ?S L 8064 


0(2,1 )=0(1 tl 1 


E2S18065 


0(2,2 ) *Q( 1,11 


E 2S 1 8066 


Fl~F l*E22 (1,1) 


E2S1R067 


CALL AOK(S, 105,0,2,5, 5, Fl 1 


rPSIHOAH 

45 

0(1 , 1 ) =- ( BOY ®*2 1 *YD < 11/2. 


E2S18069 


0(1,7 1= 011,1 ) 


F2SIB070 


0(2,1 |=-0I 1,1) 


E2S10O71 


0( ?. ? I=-CH 1 ) 


C7S 1007? 


CALL AOM (S, IDS, 0,2,1 ,5, Fl) 


E?5l 8073 

50 

0(1,1 ) = (BtlY**7 )*XD( l )/2. 


E251R074 


Q ( 1 ,21=0(1,1 ) 


E2S18075 


0(2, 1 | =-011,1 ) 


EPS 1 807 6 


0(2,21 =-Q (1,1) 


F7S18077 


CALL ADM IS. IDS, 0,2, 3, 5. Fl) 


E251H07R 

55 

UVI5)=0- 


E7518079 


l)V ( 6 ) = DG*ftDY* AL 1 


FPS180RO 

60 

RETURN 


E2SIR081 


END 


T=2£ 1 A0B2 
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Table VII-39. Source program listing of 
subroutine STFS (Link 2) 


<f LABEL 

CE2STF 

SUBROUTINE STFS (IFI.TI 

C SELECTS PROPER .SUBHTIUTINF FOR GENERATION OF ElFMENT MATRICES 

IELT- l£LT 

GO TO f 1.2, 3, 4,5,5, 7, 7, B, 8,9,9, 10, 10, U , 1 1 * 17. 1 3) , I Ell 

1 CALL SOI 
GO TO 100 

2 CALL S02 
CO TO LOO 

3 CALL SOS 
G(l TO 100 

A CALL SO'. 

GO TO LOO 
5 CALL SOb 

GO TO 100 
7 CALL S07 

GO TO LOO 
ft CALL S09 
GO TO 100 
9 CALI. SLL 
GO TO 100 

10 CALL 513 
GO TO 100 

11 CALL SIS 
GO TO 100 

12 CALL S17 
GO TO 100 

13 CALL SLB 
1U0 RETURN 

END 


F7STF0OU 
F3STF001 
F2STF002 
F2STFO03 
E2STF0O4 
E2STF005 
F2STF006 
F2STFOU7 
F 7$ TFOOH 
r75ifon9 
F2STF010 
E2STF01 l 
E2STF012 
F7ST FD1 3 
E2STF01 A 
E75TF015 
E2STF016 
E2STF017 
E2STF01R 
E2STF019 
E7STF07D 
F7STf()71 
E2STF022 
F2STF023 
E2STF02A 
E2STF025 
E2STF026 
E2STF027 
F75 TFO? fl 
F2STF079 


Table VI 1-41. Source program listing of 
subroutine TICK (Link 2) 


Table VII-40, Source program listing of 
subroutine STRA (Link 2) 


# LABEL 

CE2STR F2STROOO 

Subroutine stra F?STRorn 

C TRANSFORMS DESCRIPTION OF ELEMENT MATRICFS FROM LOCAL TO OVERALL F ?STRfW2 

n I MENS I ON I AH ), AAI 1 |,S(1 J . N(HJ .071(7] ) , 1)331 3,11. F7? I 3*3 I F7!i I ROD 3 

l,P(24),UV«24) ,X(B) ,Y{fl) ,ZI ftl ,XM7> ,YI)[7) ,ZD(7) .GUI I F75TR004 

COMMON I A | A A F7ST«Dni 


EQUIVALENCE! I A ,AA ]. U)2 1 . 03 3 1 , <U2 1 < 1 0 ), E22 I , I 02 1 { 1 9 ), E ) , ( 071 ( ?.0 ) ,G 1 F2S TROO* 
FOU I VALENCE llAUI,lNI,(IAl2).IbN),tlM3),IT),II4l4|,IP),<IA(b|, F2STR007 
11 PR SI , { 1 A|6), I TYPE 1 , [ I Al 71 , IMA1 I * ( I At P 1 » I DEG I » ( I A < 9 I , J NX I , ( I A 1 10 I ,F2STKO(>8 
2IH), t IA( 111, I ftl. (IA112I , TMMX), ( TAM 31 , 1M.MY) , UAM4) , IMMZ | t ( |A< 151 ,r2STRnr>9 
3IHF1I ,(IA| 161 , IARRJ ,HA<17) t Ntm t M A(25),M) , I IA(2r 1 .| ,1TY), l rAI2T| ,E2STRniO 
4 1 ST R I ,{IAI2B)tlELT) ♦ < I A| 29| , ITEM! , I IA I 301. I TIC 1 . ( 1 A (31 ) » I MET}. F7STR011 
6MA132J.ISUMI, I IA133P, INOI . UA( 3A), IMS1 . ( JAI36J. IDSI, ( IAI371, F2STR012 

61QRD)t [IA13BI f IOROU t (IAI39) , ACEL I , ( 1 A ( 5(1 ) ,.ll I , ! J At 31 I ,.1?J , F 7$ TRfl ] 3 

7{ |A(52>,J3>. I JA(53I. J*>, { IA(54},J*}, ( IA( 55) ,J6). I I AISM..I7I ♦ ( I A ( 57F ?STR(1 14 
Bl , J0 ) , (IAI5B 1 , JTY) ♦ ( lAf 59 ) , I HH ) , ( I AC 6U ) , I BO I , ( I AT 61 > , 1 1 1>) , ( IA( 62 I .E2STR01 b 
9]|A|,(IA|63t»lf)Tlpl l A I 64 I * 1 OY ) « 1 I A ( 6 5 ) , I T F 1 , ( |A(M),ITAP) E2STR016 


EQUIVALENCE II A 1 66 ) , 1 CAR 1 . (I A ( 67 ) , 1 C I X ) , II A ( 68 1 , I C 1 Y ) , 

M A (691 , 

E2STR017 

11CIZ>.( IA( 701. ICFI ),{IA< 71), 1 XXI, ( 14(721 . JYY) ,( IA(73J , 

17. 2) t 

T 7STR01 8 

21 |A [741. 1 1C 1 ,1 I A <75 I.IOEF) . 1 I A [76) ,IST), [I A (77) . 11$) 


E2STR019 

3, 1 I A( 7BI, IGEM1 , ( IA17V1 ,IERK ). 1 AA180) , TEI. ( AA( 81) ,OT ) , ( AA(R2),on), 

E?5TR(120 

4 (AAt83l,ALI 1 »1 AA Ifl4 I ,AL7) , 1AA l BS) ,AL3l , < AAI ft*) ,021 1 , ( AAflO? > ,P > , 

F2STR021 

5<AA( 131 J.liV), 1 AA1155 l,X), 1 AA( 1631 . Yl, < AA(1 71), 7), (AAI 179),X0J, 

F?STRn7? 

6(AAUB6I.Y0I ,144(1931 ,20 1 ,(AA(351) ,S 1 , (AAI 40] , ZGEMI 


F7STRn?3 

7, (AAI -42 1, INPI, (AA(43I, I PBG J , { AA ( 44 ) , I PEN 1,1 AA(45I , CriNS). (64(^61 f llJr?5TRn?4 

81 , (14(4M ,G1 ) , ( A A I 4 B 1 , G2 1 » ( AA ( 49 ) , G3 I 


E2STR025 

EQUIVALENCE 11A(3*.9),NTIC), (IA( 348), 1 SOT), [ IA 1347). 1S0YI , (1A( 346) 

F2STR026 

1 , 1 SDZ ), 1 1A1 345). J9) , HA(344| ,J1Q), ( I AI343I .JPRS) .( 1 A < 342 1 , JSOY ) 

F2STR027 

2, ( IAI341 1 »JS07),( |A(34Q), JARE J , ( IA1339I , JMMX) , ( 1A( 33B J 

MHY) 

E2STR028 

3, 1 I Al 337) »JNMZ>, 1 14(3361 ,JMFJ} , 1 TAI335) , HAS), (1 At 334) 

, i n/ ) 

F7S (Rfl 29 

4, I IAl 333) ■ I PR ) , (AA( 33?). I)GY 1, 1 AAt 3311 , TUI £ 1 , 1 A A ( 330 ) , PRES > 

E2STR030 

5, 1 14(329! , 1 P IR ) 


r2ST | t031 

J--10S 


F25TR032 

no 5 m rios 


F25TR033 

J*J+IO$ 


F?STRn34 

CALL TRAN <S,JI 


E2STR035 

CONTINUE 


F2STR036 

IARD=- IDS 


F2STR037 

IE BB“- l DS 


r?STRniR 

1)11 6 1=1.1 DS 


F/S1R039 

I AB&= I A B8+ 1 


E2STR040 

1 A8= I AB8 


F2STR041 

1EBB=IEBRHDS 


E2STR042 

IHE = I F-BtJ 


F2STR043 

DO 7 JM . !0S 


F 75 T R044 

1 AB- r AB+ ios 


E 7 h TRG4S 

IRE- IttE+1 


F7STR046 

IF MAB-IHEI 7,7,13 


F2STR047 

TEMPOS! IRH) 


( 7STR04B 

SI 1BE l E S ( ! AB) 


F2STR049 

SI I Ap TEMP 


F7S 1 RO'SO 

CONTINUE 


F2STH0S1 

CONTINUE 


F2STR052 

J--1US 


F2STR083 

DO B 1=1,105 


F2STR05'. 

J-J+IOS 


F2STR050 

CALL TRAN (S,.l) 


E?STwn46 

CONTINUE 


F2STH067 

RETURN 


F 75 TR04R 

END 


r?STR059 


V 

FAR 


TJCKOOO 


COUNT 

25 

ncKooi 


L8L 

TICK 

I ICK002 


ENTRY 

1 ILK 

TICKCini 

TICK 

NZT 

(INC F 

T I CK 004 


THA 

FIRST 

TICKOOfi 


CAL 

5 

TICK0O6 


SUB 

INITL 

t ir.Kon? 


ALS 

18 

T ICKOOR 


SLN* 

1,4 

TiCKnn<? 


TRA 

2,4 

TICK010 

F 1R ST 

STL 

ONCE 

TICKOU 


CAL 

5 

1 1 CKO 1 2 


SLN 

INiTL 

nr.KOl 3 


$ 1 2* 

1 ,4 

T!CKfU4 


1 ItA 

2.4 

T1CK01 4 

ONCE 

PZE 


TICK0L6 

INI 1 L 

PZE 


T ICKHT 7 


END 


T1CK018 
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Table VII-42. Source program listing of 
subroutine TOPO (Link 2) 


* LABEL 

CE2T0H FJTHPOOO 

SUBROUTINE TOPO F2TOPOOI 

C PREPARES ELEMENT PROPERTIES E2T0P002 

DIMENSION MILI T AAm.Sf l}'H<B>tD2H2L> v r>33<3.3)»e2?r3f 31 E2TnP[)03 

I ,PI24) ,UVI24) ,XI6),Y<S) , ZI0),XD(7),YDt7>,Z[>t7),tTl 111 E2 TDP004 

COMMON 1 A , A A P?tllPOnS 

EOH1 VALENCE II A , AA ) , ( 02 l , 03 3 ) , I 02 1 N 0 ) i E 2? ) - I 02 U 1 9 > . E ) » I D7 II 70 I ,Gir?TnP006 
EQUIVALENCE (I Alt) * INI , C I A (2), I RNI , (IM3). HI , ( 1A(4) , 1 P ) , [ [A (5 ) t F2TCIP007 
iIPR5l,UA<6)« I TYPE J , < 1A<7), I HAT 1 , ( I A ( R ) , I DEC ) , I I A I 9 I , I NX 1 , < I A (1 0 ) , E2T0P0O8 
7 IH ) , t l A ( 1 1 I,I3),(IA(12), I MMX) f II A I 13) , I MM Y ] * f I A U A I , I MMZ I , I I A I 1 & 1 ,F2TOPD09 
3IMFI I, I IA(16I, I ARE I ,< !A< 17] ,N| 1 !),{Ii 125 > f MJ , I 1A I ZM, ITT), ( I A ( 27 > , F2 TllPOl 0 
A I STR | ,< 1 A(2R), IEIT J , < IA<79 ) , ITEM), < IA( 30) , 1 T 1C) , (IA( 31 I , INET ) , E2T0P01 1 

5( I A | 32) , 1SUMJ . < I A ( 33 ) , I NO J , { I At 34 ) « IMS), ( 1 A ( 36 I , IDS I, ( 1 A ( 3 7 I , F2 TOPOl 2 

6I0R0I , < T A | 3B ) tIOROI ) , II A [ 39 1 , ACE L ),MA{50l,Jl),{|A(51),J?l, 6 2TOPO] 3 

71 IAI 52NJ3), I [AIS3I ,J4l , ( 1A(54) ,J5| , (IA(5?n,J6l, ( IA(S6),JT), < I A t S YE2 TOHOI 4 
a),J8l,<IAI5e>.JTY),(lA(591,IB8J,< IA<60>, I BO) , I IA(6) I. T f 01 , 1 1 A I 67 I , E ? rnPOl 5 

91 IA), I lA(63l, IDT),(IA(64>, IDY), UA(6S),ITE>, < IAI41 ), ITAPJ E2IOPOI6 

EQUIVALENCE II A I 66 I , 1 CAR I , I 1 A t 67 > , I C I X ) , I 1 A I 68 ) , I C I Y ) , I I A { f,9 ) , E2T0P017 

IIC1Z), I TAI70J ,ICFJ I, ( IA(71J » I XX I . ( 1AI 72), IYY) ,11 A [731 , IZZ), E2T0PO1B 

21 I A ( 7 4 ) , 1 1 C I , ( 1 A < 7 S ) ♦ I OFF J ,(lAt76|,LST),IIA(77),IISI E2TDP019 

3, < 1A< 70 ) , (GEM) , ( 1A (79), I£RR >, I AA[ 801 , TE) , I AA( 81 I ,DT ) . I AAI 82 I ,DG) , F2TOPO2 0 

4fAAI63>,ALll,IAA(84},AL2l, (AA(B5),AL3> ,(AA(fl6) ,021 >, (AA(107| ,P), E2TUP021 
b I AA I L31),UV), IAAI L 55 ) , X ) « ( AA ( 1631 ,Y| , ( AA ( 171 I ,21 » ( A A ( 1 79 1 , XO ) » E2T0P022 

6( AA( 1B6),Y[>| , < AA( 193), ZDI , ( AA( 361 I ,5 ) , < AA< 40 I , ZGEM) P2T0P023 

7, < AA ( 42 ) , IMP ) , ( AA(43 ), I P8G! , f AA( 44 I , I PEN I , ( AA< 46 ) ,CONS ) , I AM 46 I , IUF2T0P024 
8), (AA (47 I ,G1 } , ( AA (4fl> ,G?I , t AA< 69 ) ,G3| F? TOPO 2 5 

EQUIVALENCE MAI349J ,NTICI, (IAI348), ISDT), MA(347) , I SOY) , (IA1346) F?TnP02h 
I,ISDZI,< 1A(345) ,J9I ,< 1A<344) , J 1 0 > , I I A I 343 > , J PRS > , I 1 A I 342 ) , J$DY ) E2T0P027 

2, C1A<34! I ,JSnZ) . I IA| 340), JAKE! , UA(339) , JMMX J , U A { 338 ) , JMMY I 
3,1 I A ( 337 ) , J MM2 I , { IAI3 36),JMFI ) . I I A ( 335 ) , 17 AS ) , U A I 334 ) . J 02 I 

4, (14(3331, (PR), t A A ( 1 3? J , DRY ) , IAAI 331 >,f]GZ>, t AA [ 330 >, PRES ) 

5 • I 1 A (329 I * I P IP. ) 


IELT*0 
ITEM-0 
ITIC-0 
IMET-0 
00 10 1=1,8 
N( I ) =0 
K= 1+335 
JA IK 1-0 
JM=Jl+M 

IELT=1A( JMJ/100 
IMET=IA( JM)-lOO*IElT 
JN=J2+M 

IF (IELT-4) 100,100,450 
IF UFLT-3) 200,300,200 
JARE*1A(JM)7100 
1 TEM= I A( JM )-lOO* J ARE 
GO TO 400 

300 JPR$-1A( JMl/lOO 

JSfJZ- JA( JM)-IOO#JPftS 
400 IF (IELT-3) 600,800,800 
4 50 TF I I EL T— 10 I 470.470,500 
470 IF UELT-fl) 500,500,480 
480 JPRS-lAtJM )/100 

I TEM= IA( JM)-100*.|PRS 


T 0 


TOO 

200 


F2TOP028 
E2T0P029 
E2TOPO30 
E2T0PO3L 
E2TC1P032 
F2TDP033 
F270P034 
F7 I (1PD36 
E2TOP036 
F2T0P037 
E2THP038 
F2TUP039 
F2 Tf IH040 
P2TOP041 
F2T0P042 
E2TC1P043 

E2TC1P046 
F PTDP045 
F?TnP04h 
E2T0PO47 
F2T0P048 
F2T0PO49 
F2TC1P050 
F2TnP061 
F2T0P052 
F2T0PO63 
E2T0PO54 

rstnporss 


L = 1 

go ro iooo 

500 n JC»1A< JM1/100 

ITFM-IAI JM)-lt>G#l TIC 
JM-J3+M 

JSOZ=1A(JM)/100 
JPRS-1A( JM>-100»JSDZ 
L = 2 

GU TU 1000 
6U0 JM-J3+M 

JPRS=1A( JM) 

1=2 

IF (IELT-2) 1000,700,700 
700 JM=J4+H 

JMMZ= l A ( JM ) / ICO 
J SDY= J A I JM ) - 1 00#JMM2 
L = 3 

IF I IELT-4) 1000,900,1000 
HOO JM=J3+M 

jMHKs ] A ( JM) / 100 
JMMY= J At JM ) — 100# JMMX 
L’2 

IF UFLT-4) 1000,700,1000 
900 JM=-J5+M 

JSDZ?1A( JM)/100 
JNFI=|A(JM)-100#JS0Z 
JM-J6+M 
JPRS= JA(JM) 

L = 4 
IOOO 1=1 

Gil TO 11100, 1200, 1300,141)0), L 
1100 JM=. J3+M 

M 1 1 ) = I A ( JM ) 

1=1*1 

12U0 JM=J4+M 

N( 1 }= I A( JM) 

1 = 1 + 1 

1300 JM=J5+M 

NU)»IA(JM) 

1 = 1+1 
JM=J6+H 
Nt r ) = |A( JM) 

1 = 1+1 

1400 J M= J7+M 

Nt I )= [At JM) 

)M + 1 

JM»JR+M 
NI |)-lAt JM) 

1 = 1 + 1 
J M = J 9 + M 

1 = 1 + 1 ,m> ”' 

JM-J10+M 
N( J ) = IA( JM) 

IF Il-IHI 1600,1600,1450 
1 4 5f> IHP=IH+1 

DO 1500 I = ! TIP , B 
1500 Nt I )fO, 

IbOO RETURN 
END 


E21DP066 
E2TDP057 
F? mPObfl 
F ? TC1P059 
F?TnPO60 
F2TOPOM 
F2TDPOA2 
E 2 TDP063 
P2TflP064 
E2TOP065 
E2TI1P066 
F2TUP067 
E2TI1P06H 
F2T0P069 
F2TOP070 
F2T0P071 
E2TPP072 
E2TUP073 
E2TDP074 
F7TnP075 
E2inP076 
E2T0P077 
F2TDP078 
F7TT1P079 
F?TnPt>flO 
F2T0P0H1 
F2TDP082 
F?TnP083 
E2T0PO84 
E2T0P0R5 
E2TriP0fl6 
F2 TOPOR7 
E2TOPOR8 
E2TC1P089 
F?inP090 
F 2TTIP091 
F2fnPt>9? 
E2TDP093 
F2TOP094 
EPT0PO95 
F? T UPD9f> 
F 2TDP097 
E2TDP09R 
F?THP099 
F2 TOPI 00 
F 2TI1P 1 01 
F2T0PT02 
F2TT1P103 
F2TOP104 
F?Tr)P105 
FPTnPlIJft 
FPTflP 1 07 
FPrnpirm 
F2T0P1O9 
F 2 TO P1 1 0 
F2T0P1L1 
F2TOP112 
F2TOPH3 
HP I DP 3 1 4 
F7rnpj i 5 


Table VII-43. Source program listing of 
subroutine TRAN (Link 2) 


= LABEL 

CE2 fKN PPTRNOnn 

SUBRMUT INF TRAN (A,IFS) F2TRN001 

c TRANSFORMS T HF DFSCRlPTIUN OF A VECTOR FROM LOCAL TO OVERALL F ? TRN 882 

DIMENSHIN IA (1 ),AA( 11 ,S t L),N( 8 I ,f*2l(21 ).D 3313,3), F 22(3.31 F7TRN003 

1,H(24),UV(24) ,X(ft) ,VIR) ,Z t8) ,X0(7) , Y(K7) ,/Dt 7) *GI 1 1 I E2TRN004 

COMMON I A , AA f 2TRN006 

FOIJI VALENCE ( I A , A A ) , (021,033) , (021(1P)*F2PI , (U2 It l9t,F) . (021(201 ,G)E2TRN006 
E0U1 VALENCE (IAU),lN),llAt2),l3N),(|A(3),lT),UAl4|,IP|,(IA(5), F7 TRN007 
llPftS),llA(6),[TYPE),nA(T|,IHAT| t (|AIR),ll)FK).IlAI9l,|NXl 1 MAIlO) . F2 TRNOOA 
2IHIt(lAlll),|B),|IA(L2), I MMX I, ( IA(13),IMMY1,( IA()4), IMMZ), t I A ( 1 5 ) , F ?TftW(i09 
31MFI ), l ( A I LM.IARFI , ( I At 17 ),N<) )) , I I At 26) ,M| ,( I At 76), ITYI ,1 1 A I 7 . 7 I , F2TRN01 0 
4ISTR), t IAI2H J , IFIT I, ( IA(29) , ITFNI ,( I AOO), I TIC), I I AI31 I .IMFT) , F ? I RNflJ 1 

51 IA( 32) , I SUM ) , I I AI33) , INO) ,tl A (34 I ,1 MS) , M A 1361 ,1051 ,1 I A 137) . F7 IRH012 

6 I ORO ) , | IA|3R),inR01 ),(l A (39), ACM. ) . I i A I 50 ) , J l ) , I 1 A I 51 I . J? ) , P2TRN013 

7t I A ( 5 2 ) , J 3 ) , I 1 A I 5 3 1 ,J4) , I I A t 6 4 ) ,J5] , ( I A t 5 5 ) , J 6 J , l JAl 56) ,J7) , I ]A(b?F2TRNfll4 
8),J8>, I IA( 5M ,JTY), ( IAI59J, IRB), I IAI60) , IBfl), I JAI61 I , ! ID) , M« t 67 ) , P2TRN01 5 
91 I A) , HA(fi3 I ,1 Dl ) , I I At 64) . I UY > , ( IA| 6 C «) , 1TE ) , ( I A(M ) , I TAP I FP1RN016 

EQUIVALENCE II A I 66 I , ICAR I . I ) A I (>7 ) , I C I X ] , II A ( 68 ) , K I Y ) , I I A ( 69 ) , F7 7RN017 
1 IC I Z I » < I A ( 70 ) , I C F 1 ) , ( (A) 71 |, IXX),I1M7?I, l YY),I1A|73), I?;.), E2TRN01 8 

2UA(74),IIC1,( |A(75), IDEF), ( U(76|, 1ST) ,MA(77|, MS) E2TRN019 

3, IIAI7BI ,IG€MI , ( IA(79) , IFRR) , t AA tOOl ,TE] .( AA Ifll) ,DT) , I AA(R2J ,DR) , F2TRN070 
4( AA(B3),AL1 )*( AAtb4),AL2), (AA(85) ,AL3I , tAA(H6),l>?l).fAAnn7 |,P) , F71RNn71 
5(AAU31 I ,UV) , I AA( 145) ,X) , I AA( 1 631 , Y I . t AA< 171 I ,Z ) . I AA t L7S) ,XD) , P2TRN822 
b(AA(186l,YD),(AA(193),Zn),(AA(35l I ,SI ,( AA(40) .ZGFM) F2TRN023 

7 , IAAI42) ,1NPI ,(AA(43),1PBG),(AA|44) , 1 PEN ) , I A A ( 46 I ,CMNSI . (AAI46) ,ll»E2TRN024 
61 ,(AA(47),Gl I, I AA|46),G2),(AA(49) ,G3I E2TRN025 

EOUI VALENCE t I A (349) ,NT IC I , < I A ( 348 I , 1S0T) , I IA| 347 ) , ISDY) , UK 346) F2TRN076 
1, ISDZ), ( I A I 345 ) , J9 ) , I I A I 344 ) , J I 0 ) , I IA( 3^3), JPRS) , I I A ( 36? ) ,J$DY) F2TRN027 
7,< IA(341 ) 1 JSDZ ) , I IAI340) ,JARE) .( U( 339),JMMX). f I At 338) . .1MMY ) E2TRN02fl 

3, I lAf337),JMMZ>,{ IAI336), JMFJ I, UAt 335) . ITAS) , II A ( 334 ) , 1 0/ ) F7TKN029 

6 , (I At 333) , I PR) , (AA(332),DGY) ,(AAl 331 ) , DGZ ) , l AA 1 330 I , PRES ) E2 7 UNO 30 

5, ( TA( 329) , IP IR) F2TRN031 

DIMENSION EM|4,4),EN(4,4) ,0(4,41 ,DIR(3.3I .IHIMI 1H) E2TRND37 

EQUIVALENCE (AA (2001 ,EM),IAA(21M f FN],{AA(?32),€Q),lAA(24B),0), 62TRN033 

1 I A Al 764) ,f)lR) , IAA t 27 31 ,OUM) F21RN034 

01 HENS I UN 4(1) F ? TRN035 

10 I GEMP- IGFM+1 F 7 I R NO 36 

L J | =0 EPTRN037 

LtL- 1 FS— 4* t MS F2TRN03R 

?U DO 300 L * l , 1 GF HP F2TRN039 

L KsLK + 34 1 MS F2TRMD40 

JO DO 200 J=L,3 E2TRN041 

00 200 1=1 , I MS P2TftNt)42 

L J I =L J 1 +1 F2TRN043 

DUM( LJ I I -0 , F2TRN044 

LKI “LK+ 1 E2TRMt)45 

40 00 100 K= 1 , 3 F2TRN046 

LKI-LKI+INS F7TRN047 

1U0 OUM(LJ I l=DIJM(L J I I+DIRCK. J l*A< LK1 I F7THlvn4fl 

200 CONTINUE F2TRHt)49 

300 CONTINUE F2TRN050 

1 N I = 3* r I CEMP# I MS F?TRMt)51 

[ID 400 I = L * INI F7TRN052 

1I-IFS+I E2TRN053 

400 A| I I )=0|1M( I ) E2TRN054 

RETURN E2TRN055 

END E7TRN856 
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Table VH-44. Source program listing of subroutine TRIM (Link 2) 


F2TRIOOO 
E2TR 1001 
F2T«fOO^ 
F7TR 1003 
E2TR1004 
F7TR1005 


* LABEL 

CE2TRI 

subrouting trim 

C GENERATES « , N AND L MATRICES Of THIN TRIANGULAR FLEMFNI 

DIMENSION IA(1I ,AAI1I ,511) ,NtH) ,D21 121 I ,D33I 3,3) ,E22(3,3> 

l,pi24),uv(z«> .xrsi tYIB) ,Z<&) , xm 7 > , yiii 7 i,zih7>,gi n ) 

COMMON |A,AA 

E0U1VALENCF I I A , AA I , I E)2 1 , D33 ) . { D21 1 1 0 1 , f 22 ) , H)2 1119 1 , E I , ( 1)2 1 1 20 ) ,GIF?TRI00fe 
EQUIVALENCE (lA(l),IN),IIA<2],IBN),IIAI3>,mp(lA<4l,IP),UA(5), E2TR 1007 
1 J PRS) , I U(6) , 1TYPE > , ( I A I / I , J NAT >, I TA( 8) , tOEG) , I I A I 9 ), I NX ) , ( I A (1 0 ) i E ?TR T DOS 
2IH),(lA<ll},18>,ltAM?l, IMMX),( IA( 13), I MMY ) , (TAMA) , I MHZ I , (1 A (1 5 ] ,E2TRI009 
3 IMF I > , II M 161, I ARE), I IAI 17] ,NI 1 ) I , ( I A < 25 > , M ) , U A < 26 I , ITY)t(IAf27i ,E2TRI01O 
AISTR), f IAI28I ,IELTI ,( IA(29I, ITEM), I 1 AI30), ITTC), IIAI31 I .lNETI , E2Tfl|0il 

51 IAI32I , l SUM I . | IA( 33),lNOI , < IAI 34), IHSl . HAOG), IDS! , I1A(37), F2TRI012 

6 I DRO ) , I IAI-J6I tlORDl UUA139I ,ACEl J , ( I A< 50 > , Jl) , ( 1 A I 51 I , J? ) , F2TR1013 

7| I A I 5 2 ) * J 3 ) * I I A ( 5 3 > , J 4 I * ( 1 A ( 54 ) »J5), I JAI55I ,JA), I 1A|56),J7I * f IAI57F7IKI014 
6],Jfl),IIAI5BJ.JlYl,(IA(59),IRBIt(IA(fiO)tl Htl) ,( 1 A ( 61 ) ,1 10) , ( T A ( 62 ) ,F2TftIOl5 
911 A), I IM63I, IDT), II A(64l t IDY), I IA{65I, 1TE) , < IA|4| ), 1TAP) E7TRI0I 6 

EOLfI VALENCE (IAI 6b) , ICAR ) , I I A I 67 ) , I C IX ) , II A I 6R I , 1 C I Y » , (I A I 69 ) , G2TRI017 

1 IC1 Z ) . UA(70) , ICFI I , ( |A( 71 1 , I XX I , ( 1A( 72 ) , 1YV) , (IA(73) , I ZZ I , E2TR 101 R 

7( I A ( 74 ) ? ] 1C I ,1 ] A ( 75 ) , I OFF) , (1 A I 7b I , I ST ) , I I A | 77 ) , T I S ) E2TR1019 

3,1 |A(7fl I , IGFM), I I A(79>, IERR). < AA(R0).7£>, I AA(81) ,DT), < AA(R2),nC,l, E2TRIO20 
4(AA t H3 I ,AL1 J , I AA (&4 ) ,AL2) , I AAIOS I i AL3) , IAA( 86) ,021 | . ( A A I 107 I , P I . E2TRI071 
5( AA(131 I iUVI t ( AA( 1 55),X ) , ( A All 63) ,Y) , ( AA( 1 7 1 I , Z I ,< AA<179) ,XOI , T? TR 1022 
6t A A ( 106 I tYDJ , (AA t 19 3 I , ZD) , I A A ( 351 ) ,S) , (AA( 40 } • 2 GEN ] F?TR 1023 

7,{AA{42 I p INP) , f AAf 43 I , IPBG), I AAI44) ♦ I PEN), I AA ( 49 ) , CONS I , (AA(46) , IUE2TRI024 


8), UAI47)rGl ), |AA|4BI ,G2), I AM 49 I ,G3) 

DIMENSION EMI 4,4),EN( 4,41 .0(4,4] ,FCH4,4> 

f DU 1 VALENCE < A A ( 700 ) , EM ) , ( AA f 2 1 6 I , EN ) , ( AA < 232 I , EQ) , < AA < 24R I , O I 
EMI 1,2 )=YDC ?) 

EMU , 31--YDI 1 I 
EMI l, l)-YOM )-Y0(2) 

EH(2,l 1-0, 

EMI 7,2 1=0. 

FM( 2 ,3 I =0, 

EMI 3, L )=X(J(7 )-X0( 1 ) 

EM ( 3 , 2 | =-X[) ( 7 I 
EM( 3p 3 1 ■ X 0 f l ) 

DO 42 J = l , 3 
ENI 1. JI=EMI2,J) 

EN 1 2 , J I -EM I 3 , J ) 

FN( 3 , J I =E M I L , J ) 

CONTINUE 
OH 430 J=1 , 3 
E0I1,J) = EM(1 ,.l) 

601 2 , U J “EM( 3 , J ) 

RETURN 

END 


G2TRI025 
E2TRI026 
E2TRI027 
E7TR|0?a 
E2TRI029 
F2TRI030 
E2TR1031 
E2TRI032 
E2TRI033 
E2TR 1034 
E2TR1D35 
T7TRI036 
E2TR1037 
E2TRI038 
E2TR 1039 
F7TRT040 
F7TH 1041 
F71RI042 
F2TRI043 
F2TRI044 
FPTRI045 
f 2TR 1 046 


Table VI 1-45. Source program listing of subroutine TRM (Link 2) 


* LABEL 

CE2TKM 

SUBROUTINE TRM |A,B,C,M.NU 
N=N1 

DIMENSION A t 3,3) ,R 14,4} , Cl 4,4) ,0(4,4) 
IF INI 2,1,1 

2 Ns-N 

GD TfJ B 

1 00 3 I - 1 , M 

00 3 J= 1 , N 

3 C( l ♦ J 1 “81 1 , J ) 

R DO 4 1=1 , K 

DO 4 J=i,M 

0( I , J)=0, 

DO 5 K-l,M 

5 D( [,J)=OIJ ,J)+C(Kp I >*A<K,J) 

4 CONTINUE 
00 6 1=1 ,N 
DO 6 J= 1 , N 
C I I * J ) >0 . 
on 7 K=1 ,M 

7 Cl I ,J)=CU,J)+D( I ,K)*H<K,J> 

6 CONTINUE 
RETURN 
END 


F77RMOOO 
E2TRMOOJ 
F2TRM0C2 
F2TRM003 
F2TRM004 
E7TRM005 
E2TR MOOb 
F2TRM007 
F2TRM00B 
EPTRM009 
E2TRM010 
E2TRM01 1 
F2TRM01? 

F2TRM013 

E2TRM014 

E2TRM0I5 

E2TRM016 

E2TWM017 

F2TRM018 

E2TRN019 

hZTRMOPtl 

F7IRN071 

F7TRM027 

F2TRMD23 
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Table VII-46. Source program listing of main program of Link 3 (deflection link) 


CHAIN (3,2| 
LABEL 


E L A5 31100 
ELAS3001 
ELAS 3002 
ELA53003 
Ft.0S3n(]4 
FI.AS30n5 


C WAIN PROGRAM FUR OFFLFr.TION LINK 

C OBTAINS THE DEFLECT KIN CdMPtlNFN ( 5 IN OVERALL CnnRDINATfrS 

OIMHNSION IA| l >,AA(1 >,S( 1 >.IM<e),D21(2l I ,033<3,3),E22(3.3I 

1, PI24>,UV124),Xia>,Y(8].Z<8).XD<7),Y[H7),ZOI7) 

COMMON I A, A A 

EQUIVALENCE I IA, A A), 102 1.D33) ,( 021(10 I,E22).ID?1 I 191 ,EI . t D?1 { 70 J , G I El A530O6 
EQUIVALENCE I I 4 I l ) , t N I , t I A I 2 ) , l BN ),(lA(3).lT|,(IA[4),IP),ITAI5)f ELAS3007 

1 I PRS I , (iA(b).lTYPE I , < ]A(?) , 1 MAT l,(lO(H),inFG)*MA('3)>f NX ) « ( |A(10) ,ELAS3008 

2 I HI » I I A ( 1 !),t0), I IA| 121 , 1 MMX I, I IA(13J ,1MMY},( |A(14| , I MM2 ), ( 1 A ( 1 5 ) . EL A S3 00 V 

3TMFI >, UA(16),JARt) , ( JAU7) ,N<1 > ) , I IM25I .Ml , ( 1A<26>. ITY),< IA(27) ,FIAS3010 
4ISTR), I I A <28 ),JELT I.UM29I ,IT£M1 , (1 A ( 30 > , l T I C > , I I A < 3 11 , i ME f I , F: L A S 3 O l l 

5 < I A ( 32 ) » 1 SUM ) » [ I A ( 33 ) , IND 1 , ( I A ( 3* ) r I MS ) . ( I A { 36 I i I OS ) , I I A ( 37 | , E L AS 30 l 2 

6I0R0), I IA(3W), JUftUl > , f I A< 39 > , AC El. ) . I I A I 50 I , J 1) , I I A ( 51 I , J2 ) , EL AS 301 3 

7( lA(3?),.m ,<! A I 53 I ,J4I,( I A (54 l , J5I , ( I A ( 55 ) , J6 I , (1 A f 58 > , J7 ) , ( I A ( 57EL AS301 A 
fl ) , JR ) , I 1 A ( 58 ) , JTY > , I I A { 59 I , 1 Bb ) . I I A ( 60 I , J BD ) , I I A I 61 ) , I I D I i I I A ( 62 > , EL AS301 5 
9 I I A ) , I I A | 63 ) , I DT ) . I I A I 66 l,JL)Y),llM65!,ITf:)p(IA|411»|TAP) EL AS 301 6 

EQUIVALENCE (IAI6&I. ICAR) , I I A 167 I , I C I X I , ( I A ( 68 > , I C I Y } , I T A I 69 I , ELAS301 7 
1IC1Z), I IM7CI),!CF1 P ,(IA{ (1 J , I XX I , ( |A<72>, I YYJ.I |A(73) p IZZ), ELAS3018 

211617*1, 1(0,(14175), I DEFI,IIA(T6), 1ST), (IA(?7)t NS) FIAS3019 

3,( I A ( 78 1 , I GEM) , I [A(79| ,IERR), |AA(B0},TF) , lAAISl I ,QT> ,(AA|R2) .OGI . FLAS3070 
A I AA1 831 , AL1 I, I A A 104 I , At 2) , ( AA { 8 S ) ,AL3) , (AA( 8ft I ,1)21 ) , < A A I 10 7) . P ) , ELAS3021 
51 A A | 131) ,UVI , ( A A I 155 ) ,X> , ( AM 1631 ,Y) . I AA (1 71) , Z I t ( AA ( 1791 .KOI, EL AS 3022 
61 AAI LB6),Y0I . IAA( 193KZU) , (AA(351 J , S I , ( AA( A(l) ,ZGEM> ELAS3023 

7,<AA(42> , INP), IAA(43) , |PRG), IAA(44| , IPFN), <A*|49] , CONS I , I A A ( 46 I , I UhL AS3074 
U) , (AA(47> ,G1 1, I AA|4B> t G2>,< AA<49),G3) F LAS 3025 

EOIJ I VALENCE I IAI349) ►NT I C I ,< IM348I , I SPT ) . I I A I 3*7 > , I SOY), I )AI34fi) ELAS3026 
1 > 1 SDZ I, 1 IA( 3*5) . J9 ), | I A I 3441 , J1Q) , I I A I 343 ) , .IPRS ) , 1 1 A( 342) , JSOY) ELAS302? 

2, ( 1 A{ 341 ) , J SDZ ) , I 1 A I 34U I , J AKF ) , I I A ( 3 39 I , JMMX ) ,( ]A(33B) , JMMY ) ELAS3028 

3,1 IA( 337 ) , JMMZ ) , II A(336l , JMFI ), I IAI 335), ITAS) , I I A| 334) , ir>Z) ELAS3029 

* t < IA( 333|,1 PR ),{AA(332I, DGY ). [AA(331 I , DGZ I, (AAI 330) ,PRFS> FLAS3030 

5, ( JA ( 329 ) , IP1R) FLAS3031 

DIMENSION BJW999,6> FLAS3032 

EQUIVALENCE I AA ( 9000), ftRl ELAS3033 

C SOLVE THE EQUILIBRIUM EQUATIONS FOR UNKNOWN DEFLECTIONS ELAS3034 

10 CALL TICK MTIMI FLAS303S 

CALL VELASI ISUM.IERR, 1ST, IOEFJ E LAS 3036 

20 CALL TICK(ITIM) FLAS3037 

TINV-ITIM F I. AS 30 3R 

TINV-1 1NV/60, FI A53039 

IF HERR) 302,234,302 EL4$30*0 

234 IF UNP-l I 2341,23*1 ,2342 ELAS30*! 

7347 IOEFlsJDEF+1 FLAS3042 

I END-IDEF+-1SUM FLAS3043 

WRITE OUTPUT TAPE A,2343,(I,AA( I),f=ID£Fl,I FNO I ELAS3044 

2343 FORMAT I 1 HI , 34HR EDUCED DEFLECTION VECTOR FOLLOWS. ///(SI I ft, FI 4 , 5 , ELAS3045 

14X)|| ELAS3046 

C COMPLETE THE DEFLECTION VECTOR AND PRINT. ELAS3047 

7i41 IK) 20 2 M=1,JA| ELAS304B 

DO 702 K=1 ,6 EL A 53049 

202 BH(M,KI-0. E LAS 3050 

J.l — IOER ELAS3051 

nn 2031 Mt 1 , IN FLAS3052 

JJ-JJ+JDFC FLAS3053 

HD 203 K=1,I0FG E LAS 3054 

J-JJ+K FLAS3055 

1STJ»1S1«-J E LAS 305 6 

16OJ-1B0 + J FLA 53057 

L-1AIIBUJ) FLAS305B 

IICJ=IIC+J FLA 530 69 

IF (L) 204,205,206 FLAS3060 

204 IF (L+ll 2042,2041,206 ELAS3061 

2042 L=“ ( L+lOOOt) ) ELAS3062 

1 BB J= I BB + J ELAS3063 

I = 1 A I 1 8BJ ) ELAS3064 

TDFf T*rOPF-T ELAS3065 

&R(M,K)=AA( IDEFI) FLAS30A6 

Ll= ( L-l )/lDEC+l FLAS3067 

L2=L-IL1-LJ*H)EG ELAS306R 

BB(L1 ,L2I-BB(L1 ,L?I+AA( I ICJI*BRIM,K) ELA53069 

GO TO 203 ELAS3070 

2041 I BR.I = ! BB* J FLAS3071 

I = IA( I B R J ) Ft A S 3 0 7 2 

1DEF1= JOEF+I ELAS3073 

BB(M,K)-AA( IOFFI ) FLAS3074 

C,U TFI 203 ELAS3075 


205 BB(M,K)-AA( IICJ I+0& IK»K) 

GO TO 203 

206 IF (L-IOOOO) 2061,206,705 
2061 LL= I Rn *L 

LL= 1 A I LL ) 

H)EFL=]DEF4LL 

BBIM,K)sAA( (OEFL I * AA I [ (CJ) 

203 CONTINUE 
2031 CONTINUE 
JJ=~IOEG 

00 20 L l Ms [ . I N 
JJ=UJ+1DEG 

DO 201 K- 1 , 1 DEG 

1 OE F J = 1 DE F+,l J+K 

2d aaudefi )-rbiw,k) 

2011 CONTINUE 

C REARRANGE DEFLECTIONS ACCORDING* TO TYPE 

C A5SUME NORMAL CASE 
IELT=1 

C CHECK THE SPECIAL CASES 
IF II0EG-3) 460,449,450 
44V IF (IGFM1 450 , 44R , 450 
440 IF UH-2) 450,44_7,44 3 

C DISTINGUISH GRID WORK CASE 

*47 TF (IMMYl 4*3.442,4*3 
C PLATE AND?OR GRIDNORK CASE 

443 IELW 

GU ID 441 

C SHELL OF REVOLUTION OR PLANAR FRAME CASE 
442 ICLT=3 
44 l OO 40 M=-l , [ N 

GO TO '1*0,42,43) , IELT 

42 Ml )-BB(M,l I 
X(2)=BBIM,2) 

X(3)~BB(M,3I 
8B(M,1 1=0. 

RR(M,2)=0. 

BB(M,3| =■* 1 1 ) 

BB(M,4)=XI2 I 

eetM,5)=xo) 

GO TO *0 

43 Ml )=HB(M,3) 

RB I M , 3 ) =0. 

B&I M, 6 ) 1 1 I 

40 CONTINUE 

C PUNCH OUT RESULTS IF NECESSARY 

450 CALL PUNC 

WRITE OUTPUT TAPE 6 , 1 1 1 1 , (M, ( BB I M, K ) , K= 1 , 6 ) , M= 1 , I N I 
1111 FORMAT <1HL,39X,17HN0DAI OEFL ECT I ONS// 5H NDDF , 5X, 1 3H0 I SP . ALO 
15X,13HDISP, ALONG Y,5X, 13H01SP. ALONG Z , 5X , 1 3HR0T A, ABOUT X, 
75X , 1 3HR01 A . AMUU 1 Y , 5X , 1 3HRDT A . ABtJIJT /.//( I5,6ELB.7>) 

IF (INPI 310,310,320 
320 IF (1TA5) 305,305,315 
316 CALL RES I 

IFUTA5I 305,305,306 
306 CALL RE SN 

IF (INX-3) 344,345,355 
305 WRITE OUTPUT TAPE 6,3041 

3061 FORMAT (54H NO SCRATCH TAPE IS GIVEN OR ERROR IN THE SCRATCH 
GO TO 345 

310 IF IINX-3) 345,345,340 
340 IF (ITAS) 345,345,350 
350 CALL R&SI 

IF (ITAS) 345,345,355 
356 CALL LIST 
346 CALL TICK IIT1M) 

C3T-ITIM 

C3T=C3T/60. 

WRITE OUTPUT IAPF 6 , 5555 ,C3T , T 1NV 
5665 FORMAT !2lH DtFLtCTlON LINK TOOK , F7. 2 , 2X. SHSECONOS . , 75 X , F7. 2 ) 
IF (INX-3) 3471,3471,34 7 
3421 CALL CHAIN (WITAPI 
342 CALL CHAIN (4,ITAP) 

3U2 WRITE OUTPUT TAPE 6,3021, ISRR 

3U21 FORMAT |42H STIFFNESS MATRIX IS NOT POSITIVE DEFINITE, 15) 

GO TO 3421 
FNO 


ELAS307& 
FLA53077 
FI. AS 307 a 
ELAS3079 
6 L AS30 AO 
EL4S30RI 
ELAS30A2 
FLAS30B3 
FLAS3O0* 
FLAS30B5 
F LAS 30 3 6 
ELAS30R? 
EL AS3DfiU 
FLAS30B9 
EL AS 3090 
ELAS 3091 
ELAS3097 
EL AS 3093 
ELAS3094 
ELAS 3095 
ELAS3096 
ELAS3097 
FLAS309R 
ELAS3099 
ELAS3100 
EIAS3101 
ELAS3102 
ELAS3103 
ELAS3104 
FLAS3I05 
ELAS3106 
ELAS 3 107 
ELAS3108 
ELAS 3109 
FLAS31 10 
ELAS3111 
ELAS31 12 
EL AS 3 ) 1 3 
FLAS3114 
EL AS 311 5 
ELAS3116 
ELAS 3117 
ELAS3118 
FLA 531 1 9 
ELAS3120 
ELAS3121 
ELAS3I22 
FLAS3123 
NG X,FLAS3124 
ELAS3125 
ELAS 31 26 
ELAS3127 
El. AS 3 1 7.9 
FLAS3129 
FLA S 31 30 
E LASS 131 
FLAS3132 
ELAS3133 
TAPE 1FLAS3I34 
ELAS3135 
ELAS3136 
ELAS3137 
ELAS3V3P 
EL AS 3 l 39 
ELAS31 40 
ELAS3141 
FLAS314Z 
EL ASS ) *3 
ELAS314* 
ELAS3145 
FLAS 3146 
FLAS3147 
EL AS 3 1 48 
ELAS3149 
ELAS 31 50 
ELAS3141 
FLAS 31 52 
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Table VII-47. Source program listing of 
subroutine ELST (Link 3) 


* LABFL 

COtlT F3ELTnOQ 

SUBROUllNE ELST E3ELT001 

C WRITES C1N TAPE 1TAS ELEMENT SET I NFDRNC T I ON E3FLT00? 

DIMENSION IAU I ,AAtl },S<1 J ,N|8I ,021(21 >,1)33(3,3) ,E22(3,3I E3ELT003 

1 , P < 74 ) ,UV (?4),X(R),Y|R| ,7 (H >.XI)( V) , Yl)( 7 J , ZIK 7 ) E3EIT004 

COMMON i a,aa E36LT005 

EOLlfVAl ENCE l|A,AA) , ID21 ,033 >, (021110) «E22 I , CO? I U9I , F ) , 1071 I 201 ,G)F3FLT006 
EQUIVALENCE (IA(L),lN|»(IA(2},IBN),(IAI3l,IT],<lA<4)t!P),llA(5)» E3ELTOQT 
1 lPftS),< JA(6I .ITYPE I, C I A f 7 1 1 I MAT J , I I A I 8 I , I DFG > , II A < 9 I , INX } , [ T A 1 1 O I , F3EL TOO B 
?IH|'<I4{1I I rid I, (1AI 12>,1MMX).( I A ( 1 3 I , I«MY ) , (1 A I LA I , I MHZ I , ( I A ( l 5 J ♦E3FLT009 
3IMFI >,< I A( 16), I ARE I, (I At 1 71 ,N| 1 I ),< 1A(25> , M > , ( I A I 2 6 ) , I TY ) , U A I 7 7 I , E 3H. TO l O 
AT5TR) t [lA(2li),lEL1l«I I A ( 29 I , I TEN 1 , II A I 30 1 , 1 T IC I , < I A < 31 1 ,1KETI» E3FI.TOU 
MI A| 32> i I SUM) , ( |A(33>, INO] ♦ ( I A(34>, IMS] , MA<36), IDS),< IA(3?) , 63ELT0L2 

610*0), I lA<3fl), I0R01>, I T A I 39 ) , ACF l 1 » II A I SO I , J 1 I , ( 1 A ( 51} , J2 ) , E3ELT013 

71 IA| 52| ,J3| T {14|53| , J4), ( fA(5*>, J5I, ( IA< 55) ,.P6), I J4( 561 , J7) , t 14 (57E3EH01.4 
8 ) , J3 t , M A ( SP. ] , JT Y I ,( IA(59) ,|8B) ,( 14(601, IBD) ,( lAtfil >, I ID) , ( IA(62> ,E3EL?Q15 
911 A), I IAI63J , IDT), M A (64 | , I DY > , I IA(65I , ITE),( I A 141 I , f TAP) 53FLTQ16 

EQUIVALENCE ( 1 A ( 66 ) , 1 CAR ] , ( l A { 67 I , 1 Cl X ) t I I A I 6ft ) , I C 1 Y ) . ( l A ( 69 } « H3FLT017 
IIC1Z),( rAl?UJ,iCFl 1 ,< IAI7L), IXX) , < IA(72), I YY| ,< |4(73>, fZZ I , E3CLTOIR 

21 I A ( 74 | , I JC),(1A(7S), 10EF) . I I A I 7 6 I , I ST ) , I I A I 77 ) , 1 1 S > F1FLI019 

3,< IAITBJ, 1GFM), I IA(79> , I ERR I, (AAI BUI . TE ) , IAA(81 I , l)T ) , { AA ( R2 > , DG 1 * E3ELT020 
4<AA(63) ,ALl >, [AA(Q4),AL?)« (AMB5I ■ AI.3) , EAAU16I ,D21) , (AA [ 1071 - P ) , F3ELT021 
5(AA(I3l ),UV),(AAU55I,X), (AAI) 63) ,Y), IAA( I 71 ] ,2) , I AA ( 1 79 1 , XD > , E3ELT022 

6{AA'1H6),YD>, [AAI 1931 ,2D ) , I AA [ 35 1) , S ) , C AA [ 40 ) , ZGFM) F3ELT023 

7,| AAU2),JNP>, lAAf A3I.IPBG), I AAI 44 I , I PEN I , ( AA ( 45 ) , CONS 1 , (AA(46) , MJE3ELT02 4 
fl) , UA(47).G1 I, IAAI4BI ,G2>, I AAI 49 I ,G3) E3ELT025 

EQUIVALENCE ( I A ( 349 ) , NT I C ) , l 1 A(34BI , I SOT I , ( IA( 3471, SSDY), I I A (346) E3ELT026 


1,15021 r ( 1 A I 345 ) , J9 ) , I I A [ 344 ) , .11 0 I . <1 A I 343 > , J FKS ) , I I A t 34R ] , JSDY ) 
2, (I A( 141 ) , JSD2 I , [ I At 340), J ARE), I I At 339), .JMMXI , t I A I 336 I , JWMY ) 

3,1 I A { 337 },JMMZ),{1A(336| ,JMFI I , < I A ( 335 ) , I T AS > , I 1 A I 334 ] , I 07 1 
4,114(333) .IPRI, I AA 1332), DCYI, <AA(33L) ,DGZ) ,(AA<330> ,PRF5) 

5 , ( I A ( 329 > , I P I R ] 

DIMENSION IMNT(74| 

EQUIVALENCE I (IV , i MN T ) . < I A I 200 I , I ONE I 

ISN=IST+IND 

1 ELM=13 

l ELN= [ELM-1 

1 SNl = 1 SN+1 

ISNN-ISN+1N^1ELM 

INC T=0 

ICINE^O 

00 & 1 = 1 SN| , I SUN 

1 AM )=0 

oa l 1*1 * it 

01 [sJl+I 

IELT=1A( JI 1 1/100 
GO TO 19,9,9,9,2, 

ICNF=inNE+L 
GO TO 1 
KJ=4 
KN-3 
GO TO 6 
K Js4 
KN=4 
GO TO 6 
X J* 3 
KN*4 
GO TO A 
K.J = 3 


3, 2, 3. 4. 5, 2, 3, 2, 3. 2, 3,14,14], I EL T 


KJ*4 
XN*2 

KK = J1+M-IKJ^7)*IT 

00 7 J=1 ,KN 
KK=KK+I T 
NNr I A(KX ) 

1 SNI = ISNMNN-L P»IELM+1 
1£=IA( l SNl )+l 
IF IIE-1ELN) 12,11,11 
HR I I E OUTPUT TAPE A,13,1ELN,NN 


63ELT027 
E3ELT02R 
E3ELT029 
F:JELT0 3t) 
E3ELT031 
E3ELT032 
E3ELT033 
E3FLT034 
F3ELTD35 
E3ELT036 
F3ELT037 
F3FL 103R 
T3FLT039 
F3H- 1040 
F3FLT041 
F3ELT042 
E3ELT043 
E3ELT044 
F3FLT045 
E3ELT046 
F3ELT047 
E3ELT04R 
E3ELT049 
E3ELT050 
E3ELT0SI 
E3ELT05? 
E3ELT053 
E3FLTr> , )4 
E3FL TOSb 
F3ELT036 
E3ELT057 
E3ELT058 
E3ELT059 
F3ELT0A0 
F3FLT0A1 
F3ELT0A2 
E3ELT0A3 
E3SLT0R4 
E3ELT06S 
FTE L TO f>6 
E3FLT0A7 
F3EI.T0AR 
E3ELT069 
F36LTO 70 


13 FORMAT IlOH MORE THAN, [4 , 2X , 3 I I INDN-HNF -O I MFNSNL FLMNTS AT NODE , I 5 I F 3EL T07 1 

IIMCTM E3ELT072 

GO TO t F3ELT07 3 

12 I SNN= 1 SN l «• I F F3ELTI174 

IAMSNI1-1E F3FLT075 

I A ( I SNN ) * I E3ELT07(i 

7 CONTINUE F3ELT077 

1 CONTINUE F3ELT07R 

IF (INCH 19.20,19 F3M.1079 

19 |T4S=0 E3ELTORO 

WRITE miTPlir TAPE 6,191 FTFLlOfll 

191 FORMAT { S3H NODAL SlRhSS COMPUTATION IS DELETED DUE TO PRFCEDJNGI F3ELTOF12 

GO TO 100 F 3FL TOR 3 

20 00 21 1=1, IN F3ELT0P4 

ISN|*ISN+n-n*IELM+t F3EL TORS 

I E= 1A t 1 SN I } F3ELT0R6 

l F{ IE > 73,23,24 FlFLlOAV 

24 00 22 J*1 , IF F3I.LT0PR 

ISNN=ISNI+J F 3F L TDP9 

22 IMNT(J I = IA 1 1 SMN) F3ELT090 

WRITE IAPE ITAStI, IE, I I«NT( J1.J*1, IE) F3ELT091 

GO TO 21 F3ELT092 

23 WRITE TAPE I IAS. I, IE, IE E3I L1093 

71 CONTINUE F3TLTD94 

00 75 I = l , IN E3FLT095 

BACKSPACE ITAS P3ELT096 

1U0 RETURN F3ELT097 

ENU F3FLT09R 


Table VII-48. Source program listing of 
subroutine PUNC (Link 3) 


* LA6EL 

CE3PUNC F3FUNCOO 

SU8K01JT1NE PUNC F3PIJNC01 

C OIJMMY SURRHUT I NE F3PUNC07 

RETURN F3PUNC03 

ENO F1PUNCD4 


Table VII-49. Source program listing of 
subroutine RESI (Link 3) 


LAPEL 


CFiKt^ 

SUH ROUT INF RESI 

C COMPUTl’S RTSinitAL FfiKCFS AT fHF PJOneS 

DlMENSIriN |A()),AA(l),S(|),N|Ri,02ltPl I , T'33 1 3,3),t22M,3) 
J .P(24) ,uvt24) t X(R) ,Y(8> ,7(jtj .XIH7 I ♦ YM I 7 1 , / 1) [ 7 1 
COMMON | A, A A 


r'tRFSOOO 
riKESOm 
F3RES0D? 
F3RFS003 
F3RFS004 
i- 3KESOn5 


EOLli VALENCE ( I A , A 4 ) . 1 P 2 1 , 033 1 . I P2 1 UO I . F ?? ) . ( O? H 1 9 ) , F 1 , IP?) 120) ,G I F3RE 5006 
EOUI VALENCE < |A(l),TH).MA(?J.IftN) T MAO),lT).IJAI4),IP),frAI5), FIRFSOO/ 
1 IPRS1 , I I Af 6 I, I TYPE I ,( IA(7I, I MAT) , I I A( A) , IOEGI , ( I A (9] , I MX ) , [ I 4 I I 0 I ,C 3RF SOOR 

2 I H ) , [ I A ( 1 1 1 , I R J , ( I A ( 1 2 ] , I MM X ) , MA(13),IhMY) , (IAU4I . IHM2) , ( I A (1 5 ) , F3RFS009 

3 IMF I I ,1 lAf 16), IARE),UA(17),Nim .1 IAI2D),M| , ( J A I 26 ) , I TV ) , I I A | 7 7 ) ,F 3RE SOI 0 

4ISTRI ,( ] A ( 2 H ) , IELTJ . ( I A< 79 ] . I T FM ) , ( I A { 30 1 . I T 1 C I . t 1 A I 3)1 ♦ I MET I , F3RPSOU 

51 I A ( 32 ) , I SUM), ( I A (33), INnj, I ] A I 34 ] , | MS ) , [ i A [ 36 J , I l>S ) , ( 14(37), F3KFS0L2 

6UIRDI ,UAI3R) , limill ), I lAI39t ,ACEL I . f I A I 50 I , .$1 I , ( I A f 51 1 , J2 ) , F3KFS(tl3 

71 IA| 52) . J3> , IT A 1531 ,J4) , ( |A(54J . J5I . I I A { 55 ) , .16 ) , I 1 A I 56 » i J 7 1 . 1 I A ( 5 (F 3RF SO) 4 

«) ,J8| ,MA(58) ,JTY| ,< IA(59) ,IBH), I I A I 60 I , 180) ♦ ( I A< 61) , I 10 I . < I A ( 62 1 , F3RES01 5 
9! IA>, I IAI63I . IDT) , 1 IAfAM, ICY) . ( IAI65) , ITF>, I I A 141 1, I TAP) F3RES016 

EQUIVALENCE ( I A ( 66 1 , I CAK I , (I A I 67 ) , I C I X I . ( I A I 68 > , I C 1 V > , I I A I 69 1 , E3RFS017 

I I C I / I » I T A (70 ) , t n F I ) ,f IA( n ) ♦ JXX) , M A( 7? 1 , 1 YYI .( 141 73), I// I, F3RFS01 H 

2( IA(74>, I ICI .( 14(75), IOFF] ,M Af7A) , ISTI ,( JAI 77) .ITS) E3RLS019 

3 , ( I A ( 7(| 1 , 1GEM). I IA{ 79), I E RR ) , ( A A ( flfl ) . TH ) , I A A[fll I, OT J , (AA(R7), DG ), E3RFS02n 
4(AA(63) ,ALL I ,( AA(64),AL?P . ( AAIH5) ,AL3) , IAAIR6),D21 I ,(AA(107) ,P) , E3RFS021 
5(AA(13L ),UVI, {AAI 155) % X), [ AA ( 163I.Y), IAAU71 I ,Z I, (AAI 179),X0) , F3RES022 

6 ( A A ( 1 86 ) ,Y|J) , ( AA( 193) .21) I . ( AAI 351 ) , S ) , ( AA ( 40 ) , ZGEM ) E3«ES0?3 

7, ( Art I 42 I , INH) .(AAI 43), IPBRl , ( AA ( 441 . 1PFNI, C AA|4(j| ,Ct)NSI, ( AM 46) , J UP 3ftf S()24 
H) , I A A 14? J ,G1 ) , IAA(4(J) ,\\2 P , t AAI 49) , G3 ) T3RF5075 

EQUIVALENCE I I A I 349) ,NT IC 1 . I I A I 34HJ , I SO 1 I , ( IAI 34/ ) , I SOY) , ( I A ( 34 6 I F 3Rf S07 6 
l,ISOZ), [ I h (345) , J9) ,M A(344| ,J10] , (14(343) ,JPRS1 ,M A (342) ,JSDY I E3«FS0?7 

2 , ( I A { 34 1 ] ,JSDZ ) ,(IA(340),JARF] , ( |A| 339),JMMX) , ( I A ( 338 I , JMMY ) F3RF$0?8 

3, ( I A (337) ,JMHZ) , MA( 3361 .JrtFI ),[ 14(3351 ,1TAS>, 1 1 A1334I , IDZ) E3RF5029 

4,1 l A I 333 ) , IPR 1 , I AAI 332 I , DRY J . IAA( 3IU I ,t)GZ ) , (AA( 330 I . PRES) P .'iftf SO 3 D 

5 , (U I329J . IP I RJ ' E3KFS03] 

FIND ELEMENTAL NODAL FUKCFS AND ASSEMDLF FOR OBTAINING RF S I fKIAL 5 F3RE5032 

00 60 1 = 1, I NO P3RF5033 

I STI= I ST+I F3RES034 

AA I I ST I ) =0 * F3RES035 

no 20 ,jj=i , 1 t riRFsm6 

READ THE OUANTIliFS FUR ELEMENT .1.1 F3RFS037 

READ TAPE ITAS.N.ITTT* 1T1M,NAV, IMS* IDS* IDS?, INI I ),1 

II = 1 , IDS? ) , < PI I I ,CE, 1 = 1 , IDS) 

COMPUTE AND ASSEMBLE THE NODAL FORCES OF ELEMENT JJ 
IF (NAV-2) 9 L , 92 , 92 
CF= 1 * 

GO TO 93 
C F=0. 5 

IP (M-JJI 100.9,100 


du 10 1 = 1 , ins 


IMS I .( 5 I I I ,E3ftFStnn 
F3RFS039 
F3RES040 
F3RFS041 
r-3H.Esn4? 
E3RFS043 
E 3RF 5044 
F3RFS045 
E3RHS046 


KK=— I 0S+ I 
DO 11 K =1 , 1 DS 

kk=kk+ ms 

KDEG= 1 1 K-l 1/1MS141 
KNl)D=K’-(KDE G— 1 )» IMS 
KNf)D»M KNOD ) 

IDEFK^IDEF-HKNQD-l ) » I D6G4K0EC. 
11 Pt 1 ) =Pf I !“S IKK l*AA | IDEPK ) 
KDEG=I ( I-l I /IMS ) 4 1 
KNUlt=l-{K!)FK-"l 1*1 MS 
KNUD=N( KNOD) 

Nll= ( KNOD- 1)*I DEG+KDEG 

ISTI-IST+ND 

AAI I ST t I = AA I I ST I ) -P I I l*CP 
10 CONTINUE 

IF MTTT-I r Tm I 50,71,21 
2 1 IF (NAV-2) 70.50,20 

20 CONTINUE 
31 RETURN 
loo IT4S=0 

GO TD 31 
END 


F3RES047 
E3RF5D4R 
F3KFS049 
F3RF505O 
F3KFS051 
E3RES05? 
F3RFS051 
F3RFSD54 
F3RES055 
F3RFS056 
T3K FS057 
F3RFS05R 
F3RES059 
F3RFS04O 
F3RFS061 
f 3RFS062 
[3HFS063 
43RES064 
F3RF5065 
F3RFS066 
E3RFS067 
F3KES06R 


JPL TECHNICAL REPORT 32-1240 


137 



Table VI1-50. Source program listing of subroutine RESW (Link 3) 


* LABEL 

CF3KFH 

SUBROUTINE RE5W 

C WRITES RESIDUAL FORCFS AT THF NUDES 

DIMENSION 14 II ),AA ( 1J , S I 1 1 ,N< H J , »J?1 [ 21 I ,033 ( 3 , 3 ) , F. ??. ( 3, 3 I 
l,P(24I.UVI24>»XlH),YI8l t Z{»>,Xtll7),Yn(7l,7n(7) 

COMMON I A , AA 


F3RFW000 

esrphooi 
E3RFW002 
F UK E HOC 3 
F3REW0OA 
F 3REW005 


EOU I VALENCE ( 1 A , A A ) , { r>2 1 ,033) i < 02 L ( 10 I , E ?.?. ) , 1 D21 1 1 9 1 , E 1 , f 021 ( 20 I ,G)F3REH006 
EQUIVALENCE U4<l),IN),l[A(2),IF)N],IIM3>,IT),ilA(41,IPJ,IIM‘:), F3REW007 
1 IPRS), I [A (6) , [TYPE) , I I A (7) , 1MAT I , ( IA ( B> , JlJEG) . <14 < 9) , INX 1 , ( I A (1 0 } , F.1R FWOOB 
2lH),IIAim, 18), (14(12), I MMX), ( 1 A I I 3 1 , I MMY I , ( 14(14), | MMZ ) , I I A I 1 5 ) ,F3RFW0n9 
3IMFI), [ lAt IM ,I0RL) , [ IA| L71 ,IM[ 1)| , UA125),M) ,MAI26I, ITYI ,(lA(27),F3REHni0 
OlSTRl'MAIza I, IFLT),< I 4(29), ITEM), I I A( 30) , 1 TTC > , I f A 131 >, 1NFT), F3REW011 
51 I A [ 32 ) , I SUM ) , < iA< 33 I T I WD > , I I A ( 34 ) , I MS ) , (I A I 361 i 1 05 J t ( I A [ 37 ) , E3RFW012 

U I n R D J , M A (30 ) , I CRD l ) , I I A I 39 I . AC F L ) , ( I A [ 50 I , J 1 ) , (I A { 5 1 ) , J ? I , F 3REW0) 3 

7UAI52 I , D3>,( [4(53) ,J4), I IAI 56),J5) ,( 1 A I B*>) ,J6), I [ 4(561 ,J7), I JA(S7E3RFW0L4 
81 ,JB) , ( I A(58),JTY I ,f I A 1 59), I Hfi I ,{ |A( AO), fRO), [ I A ( 61 I, IT 0 ) , ( 1 A I 62 ) , F 3RFW01 *> 
91 IA> ,< 1A(63>, IDT I , ( IA(64) t ||1Y| , ( |A< 65) , I7F), (IA[41 > . ITAfM F3HFW016 

EOU 1 VALENCE ( 1 A ( 66 ) , I CAR ) , (I A ( 67 ) , [C I X ) , ( I A I 68 1 , I C l Y I , ( I A ( 69) , E3RFW017 
l ICI/),( 14(701 . ICF]),( I A 171 I .TAX), < 1 A ( 72 ) , ] Y Y I . (I A <73 1 ,1ZZI . 

2( 14(74), I IC},( |4<75),]0EF),( I 4(761, 1ST) . I I4| 77) , J IS I 
3, I IAI7B) * I GFM I , (14(79) « I ERR ) , ( AA 1 80 I , T F I , ( AA { R1 I ,DT I , ( A A { ti? ) , 0G ) 

4( AA(83),ALn,(AA<R4),AL2) , I AA(fl5>,AL3l,f 44<86>,D?1), (AM 107),PJ , 

6 I A A ( 1 31 J ,IJV) ♦ I 44 ( 1551 ,X| ,<AA( 1 63 I , Y 1 , ( AA ( 1 7 1 ) . 7. 1 , [ A A I 1 79 I , XOI , 

61 44(1861 .YD) , (AA< 193) , 201 , ( A4{ 351 I ,S I . ( AA( 40) ,J!GFM) 

7 i 144(42) ,!NP I , (AA[43I I ,{AA(44) f JPF.N) , (44(45) ,C0NS) . (44(46) , IUP3RFW024 

81 . I AA(47),G1 ), (AA<4fl),G2l ,( AA(49),G3) E3REW025 

EOU I VALENCE ( 14(349 ) , NT I C ) , I I A ( 3'<8 ) , I SDT ) , [ I A ( 347 ) , I SOY) , ( I A ( 346 I E3REW026 
l, IS07),( [4(3451 . J9 I , ( 14(344 ),J10),t I A I 343 ) , JPRR J , I (4(34?) ,JS»)Y) F3RFW027 
2,1141341 ),J$(>2) ,( 14(340) ,JARF) .( IA(339) , JMMX I .( 14(338) . JMMY ) f 3KFW07R 

3, I [4(337),JHMZ I . I IAI 336J,JMM ),( f 6( 335),]T4S),M4(334| .in/) F3RFklO?9 

4, HAI 3331 , ICRI , 144(332 ),nnv| .(44(331 1 , Of.Z ) , ( A4( 330) , PRES) 

5, ( IA< 329) , IP (R I 
ILL T* I El T 

WKlIfc OUTPUT TAPE 6,74 
FORMAT (lHU40X,7feHFnRCES AC 1 1 NO AT THE NOOES//5H NODE , 5* , 13NF0RCEF3«tWO34 
1 ALONG X , 5X , 1 3H FORCE ALONG Y , SX , L 3HFCIRCE ALONG 2 , 4X , t 4KM0PE NT AB0UF3HE W035 


E3REWH8 
F3RFW019 
F3KF W0?0 
F3REW021 
F3RFW02? 
F3RFW023 


E3REW030 

F3REW031 

E3R6W032 

F3HFW033 


2T X,4X,14HM0MENT AtimjT 

Y,4X, L4HM0PENT AROUT J//) 

F3RFW036 

00 71 [-1 ,6 


F3ftPW037 

P( [ )=(J. 


E3RFW03P 

on 75 [-1 , IN 


F3HFW039 

ND= (I - 1 ) w I OEG 


F3REW040 

T ST I = 1 S T+Ni) 


F 1RFW041 

00 7? J«1 , I MEG 


F3RHV04? 

L-J 


F3RFW043 

JSTJsISTI+J 


F3RFW04A 

CO TO 17 2,2,3), 1 HU 


F3RFW045 

L = J+ 2 


F3KEW046 

GO TO 72 


F3RFW047 

IF ( J-3 ) 72,4,72 


FTRFW04R 

L-J + 3 


F3REW049 

P { L ) “ A A ( ! ST J ) 


E3RFH05O 

NRITE OUTPUT TAPE 6,76, 

1, (PlJ>t J-1,61 

E3REW05L 

FORMAT 1 I5,Mrl8.7J 


F3RPwn6? 

CONTINUE 


F3RFWn63 

RETURN 


F3RFW054 

END 


F3RFW085 


Table VII-51. Source program listing of subroutine TICK (Link 3) 


* FAF 

COUNT 

LBL 

ENTRY 

TICK NZT 
TRA 
CAL 
SUP 
ALS 
SLW* 
TRA 

FlKST STL 
CAL 
SLH 
5TZ» 
TRA 

ONCE PZE 

INI 1 L P2E 

END 


25 

TICK 

TICK 

ONCE 

FIRST 

5 

INITl 

18 

1.4 

2.4 
ONCE 
5 

INITL 

1.4 

2.4 


T ICKOOO 
riCKOOl 
1 ICK002 
T ICK003 
TICK 004 
TICK005 
T I CK 0(16 
T1CKOO? 
TICK 008 
TICK009 
T1CK010 
TICKPI 1 
T ICK01 ? 
1 ICK01 3 
T1CK014 
TJCK015 
TICK016 
TICK017 
1 ICKDlfi 
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Table VII-52. Source program listing of subroutine VELAS (Link 3) 


* LABEL 

CE3VEL 

SUBROUTINE VELAS < NN , 1 ERR , I ST * 1 DEF I 
C SOLVES THE GOVERNING EQUATIONS BY VARIABLE 

DIMtNS ION A I l 1, I A ( 1 ) 

COMMON A 

EQUIVALENCE (A, I At 
ID" I ERR 
I J = 1 ST+1 
Z*U6-16 

IE I NN I LO 1.101.) 000 
1U| I b RR=- 1 

GU TO 1 06 
1000 N-NN 

Nl =N+ 1 

c find the smallest oi agonal element. 

1UU1 E=ARSFIA(IST+1) ) 

no 77 1 = 1 ,N 
I Hi = I U+ 1 
ID'IAI 1UT I+I5T 

76 IF lARSF(AlTOJ)-F) 771,77.77 

7/1 E = ABSFIA(10H 

7/ CONTINUE 

C SET ALLOWABLE MINIMUM ON DIAGONAL ELFMENTS 

E»E*Z 

C OBTAIN 0(1,11 

IF (AUST + ll -FI 100.100.10 
10 IF ( N-l 1 1072,1074,1072 

10/4 A I l OH- * l 1 = A I IDEF+1 ) /A US 1 + 1 I 
GO TO L05 

10/2 AfIST+1 |=SORTFIA< 1ST + 1 ) ) 

C OBTAIN THE REST OF FIRST ROW DF U. 

IUI = lt>+7 
(W= I A ( I IJ I )-l 

IF UW-1) 1317,1312*1313 
1313 00 1311 J-2.IW 
1 J-lSl+J 

1311 At IJ)-A(IJ}/A| IST+l I 
C OBTAIN IHE CITHER ROWS OF Ll SEQUENTIALLY. 

1317 I bJ I = 1 U+Nl 

MAX" I A I lilt 1+IST 
DO 701 J=l,N 
JJ-MAX+J 

701 |A<JJ>=0 

DO 11 1=7, N 

C HKf PARE FOR THE I (H KDW. 

IUI=1U+1 

i d= i a < i u n 

I DC = I A < IIM+IJ 
JMX = I l)E- 1 0+ 1-1 
1 0 - 1 0+ 1ST 
11 =10-1 

fF IIW-I) 15,16,16 
16 CIO 702 J=1 ,IH 
JJ-MAX+ J 

702 IAI JJ 1=1 Al JJ 1 + 1 
1 5 IW=JMX 

1 EI “ I-L 

DU 112 J=U.IMX 
1 J=i I+J 
JJ=MAX+J 
KB=1-IA[JJ p 


E3VFL0CI0 

E3VEL0D1 

BAND- Wl OTH CHfllESKI MTDE3VEL002 
F3VEL003 
E3VELD04 
G3VELOD5 
E3VEL006 
E3VEL007 
E3VEL00R 
F3VFL0U9 
F3VFL01 0 
E3VFL011 
E3VFL017 
E3VEL013 
E3VFL014 
E3VELOL5 
F3VEL016 
E3VEL017 
E3VFL01 8 
E3VELD19 
E3VEL070 
E3VEL021 
F3VEL022 
F3VEL023 
E3VEL024 
F3VFL025 
F3VEL026 
F3 VFL027 
E3VELH7B 
F3VFL029 
E3VEL030 
F3VFL03L 
F3VEL032 
F3VEL033 
F3VEL034 
E3V6L035 
F3VFLD36 
F3VELD37 
F3VFL03H 
E3VEL039 
E3VEL04D 
F3VFL041 
F3VFL042 
E3VEL043 
F3VEL04A 
F3VEL046 
E3VEL046 
F3VEL047 
F3VEUI4R 
F3VFL049 
E3VELD50 
F3VEL051 
F3VELD52 
F3VFL053 
F3VEL054 
E3VEL055 
F3VEL0B6 
E3VELD57 
F3VEL0SB 
E3VEL059 
F3 VFLOfin 


IF IKB-I1 1162.13,13 
i 162 on 131 K=<e , rei 

tUK-I IJ+K 
KD=IAUUKJ ♦ 1ST 
I K=KO+ 1— X 
0 K=KD+ J-K 

131 Af I J > -6{ IJ I — A ( IK I * A ( JK ) 

IF (J-ll 100,12,13 

12 IF (AUJI-EI 100,100,122 
122 A I 101 = SORT F CAlIOl) 

GO TO 117 

13 A I I J I "Al I J I /A I IDI 
112 CONTINUE 

11 CONTINUE 
|M=1U 

C IJ IS NUW AVAILABLE COMPLFTFLY » 

c SOLUT1UN IS REQUESTED. START FORWARD SWFFP. FIRST Rill 

1009 A (lDFF+l >-A 1 1DEF+1 1MUST+1) 

C THEN THE REST OF «. 

00 21 I = 2 , N 
L = J OE F+ 1 
IUI-1 IMl 
IO=IA UUl 1+ 1ST 
161=1-1 
JJsMAX+1 
KB=I-I A( JJ) 

IF (KB- 1 1 352L, 21,21 
3521 DU 22 K=KB , IE1 

1 UK- 1U+K 

Kf>= I A ( I UK 1 + I ST 
1 K=KD+T-K 
JK= 1 DEF+K 

22 A(U=A [Ll-A/ ! K)*Al JK I 
?| AILl=A(L)/A( 10) 

C FORWARD SHFbP IS COMPLETED. START BACKWARD SWEEP, 9<N] FIRST. 

L = I06F+N 
A ( L > =A < L I / A I IM I 

C THEN THE REST OF R IN BACKWARD DIRECTION. 

DU 3) L = 2 , N 
I =N 1— L 
J= I + I OFF 
J1=J-1 
1 1=1+1 
JUJ-IU+I 
I D= I A ( I U I I 
I DE ■ I A I I U 1 + 1 I 
JMX=IDE-In 
1 0= I 0+1 ST 
IDI = T D-l 

IF (JHX-U 31,31,371 
321 OH 32 K= 2 » JMX 
M = J L + K 
IK=i Ul +K 

32 A ( J)=A| J )-A(M)*ff! IK I 
31 AIJ)=A(J I /A I ID) 

C THF SOLUTION IS OBTAINED SUCCESSFULLY ON B. 

105 IERR=0 

C NDW GO HOME, 

GD Tl) 106 
LOO IEHR=I.I-ISI 

106 RETURN 
END 


F3VFL0M 

F3VELD6Z 

E3VFL063 

F3VFL064 

E3VEL065 

E3V6L066 

F3VELD67 

F "IV FLO 68 

F3VFL069 

F3VFL070 

F3VFL071 

F3VFL072 

FJVEL073 

F3VF1 074 

E 3VFLOV5 

F3V6L076 

F3VEL077 

E3VFL07R 

F3VFL079 

E3VCL0B0 

E 3VTL0R 1 

E3V6LDR2 

F3VFL083 

F 3VFLDR4 

F3VEL085 

E3VFLOB6 

F3VFLDBT 

F3V6LORB 

F 3V6 LFiB9 

E3VFL090 

F1VFL091 

F3VFL097 

F 3VFI.093 

E3VFL094 

E3VEL09S 

T 3 VL L 09 (> 

E3VF 1.097 

F3VELD9K 

E3VEL099 

E3VFLIOO 

F3VF1101 

F3VF 1.107 

F3VFI.1 03 

63VEL104 

F3VEL1D5 

F3VFL106 

F3VFL107 

F3VF(.ina 

F3VEL1 09 

F3VFL 1 1 0 

E3VFL1 11 

F3VFL 112 

E3VEL113 

E3VEL114 

F3VFL115 

E3VEL1 1 6 

F3VFL117 

F3VFL1 LB 

E3VEL11S 

F3V6L120 

H3VEL121 

F3VFL I 72 


JPl TECHNICAL REPORT 32-1240 


139 



Table VH-53. Source program listing of main program gf Link 4 (stress link) 


* CHAIN (4,2J 

* LABEL 

CELAS4 FL A S4QOO 

C HAIM PROGRAM for STRESS LINK ELAS40D1 

C OBTAINS STRESSES AT MESH POINTS ELAS4002 

DIMENSION IA| 1 KAMI j ,51 I I . N< ft }, D2 1 1 2 1 1 . 033 1 3, 3 1, F 2? < 3, 3 ) E LAS 4D03 

1.PI24KUVI24),XIBKY|8| ,Z(8) »X0|7>«VUI7),2O(7) ,Gltl) El A540Q4 

COMMON lA.AA FLA54005 

EOUJ VALENCE I 1 A , A A ) , { 02 1 , 033 ) .(021(101 ,£221 , (021 I 19 I.E), (071 [ 20 ) , 6) EL A S4006 
FOU I VALENCE ( I A ( 1 1 , I N ) , I I A ( 2 ) . I BN) , ( I A ( 3 ) . 1 T > , ( I A < 4 ) , J P J , { L A ( S ) . F l AS 4(1(1 7 
1 I PR5 P , ( 14(6) , 1 T YPE ) i ( I A I 7 I »IMA1 I .( fAtBJ , 1 DEG ) • ( I A ( 9 J , J K'X ) , ( | A < 10 ) ,FLAS400B 
7IHI , ( 14<ll ). 181 , ( 1A( 12}, I MMX). [ I A I 131 * IMMYI ,< ]A< H) , I MM2), I JAM'S) ,Fl AS4009 
3IMP1 K I IAI If,), IAREK (Ul IT) ,N( l)K I IA(2S),K) . I IAI26), ITYI , I JM27KtLAS4n]0 
4lS7K>,( [AI2HI.IELTK (14(29), ITEM), I 14(30 ),ITICl,( lA(3l KiMF?T) t FL6S4011 
5( 1 A ( 37 I , 1 SOM ) . U M33 | , IND ) . I IA| 34! , IMS I , ( ] M 3A> . MTS) , H A (37) . FLAS4017 

6!0RD>, ( 1 A 03 I , I0RD1 ). ( I A (39 I , ACEI. I ■ ( I A ( 50) , J1 I , < 1 A{ 51 ) , J2 ) , FLAS401 T 

7( 14(52 I.J3K1 1AIS3I , J4), I 1AI641 ,J6K I TAI551 ,JM, IIA(56) ,J7| , ( 1 A < 57FL AS401 4 
S)'JS},< JA(5at. JIYJ,'IAI59!.IM>,| M|60UIftO).f ft<61K 111)1 .MA 162 I ,ElAS4015 
911 Al,< 14(63), IDT),(I A(64|, IP)*) ,UA|65K1TE >.<1A<41), I TAM) FLA $4016 

EQUIVALENCE ( I ft [AM, ICAR), I JA(67) .Id*! , M A ( 68 ) , IC I Y ) , f I A I 69 1 ♦ ELAS'rOl? 

LICI 2 K I IA(?0 I , JCFJI , ( )A ( 71 ) . IXX } . H A 172 I , I YY ) . I I A I 73), TZZ > , FL AS 40 Id 

7( IA(74>, I IC), (14175) ,1UEF ). < IAI Tfi > , IS f J , HA (77). 1 IS) FLAS4019 

3* 114(78) ,IGEN), I IA(79) , I ERR. I , ( AA ( BO ) , TE I , ( A A ( fil ) . OT ) , ( A A ( *2 ) . [iC, ) . FL6S4070 

41 44<R3),4L1 J , [ AA ( 04 I , AL2 ) , ( A A I «5 J , Al. 3 1 , ( AA I 6 A ) , 02 1 I , ( A A ( ) 07 ) , P ) , FL A S4071 

51 A4| 131 KUV), < AAI 1361 ,X I , (4AI1A3) ,Y), UAH.?!),?), IAA1] (9),X0K FCAS4022 

6( AM IB6KYD) , (AAI 193! , ZD ) , ( A A ( 35 1 ) . S ) , I AA ( 60 J , ZRFM P ELAS4073 

7. ( AA { 42 ) . (NR 1 « { A A ( 43 ) i I PBC.) . I AA I 44) . EPJiN] , ( AA ( 45 KC0N5 ) , ( AH 46 I , IllFl.flS40?4 
B ) , ( AA (47 ) ,G1 ) . IAA 1481 ,R7) , I A A I 49 I ,G3) ELAS407 5 

rtJUl VALENCE I fA(349).Nr IC), [ I A(34R| t ISOT) .( JAI347J .1S0Y), ( IA(34A) FLAS4026 
l.ISOZ) ,(IA( 345 I ,JVI ,C IAO44J.J10), (IA(343),JPRS> . I 1 A I 3*-7 ) , JSOY ) EIAS4027 
2. I IAI 341 ) .JSDZ) , I I A ( 340 ) , J Aft E ) . [ I A ( 339 ) , JHMX I « ( I A I 3 3B I , JMMY ) FL AS*0?H 

3. I J A (337) , JMMZ) t UA( 33A) . J MF I ) , ( [ A I 333 ) , H AS > . I ] A I 334 P , |0Z I ELAS4079 

4, ( 1 At 333), I PR ) , (44(332 | ,OGY ), t A A I 331 ) ,I1GZ J , ( AA ( 330) , PRES ) FLAS403D 

3 , [ I 4 | 329 } , ] P J R ) FLAS4031 

01 MENS I ON 61ft (3 I , S I R ( 3 1 ,0 I N ( 3 , 3 ) , SR ( 6 ) , XN [ 3 ) , XF I 3) , ON ( A 1 ,QFf6! , FLAS40 32 

IKES (6) ,RE0(6),BAS(3I ,1CLAS(4| , NBAN [ L(1 ) ,N(J|3) ,NES(31 PLAS4033 

EQUIVALENCE (AA(?QO), I ONE I , ( A A I 201 ) , ] C N I , < AA< 70 ? J , LM ) . ( A A (203) ,ASTE LAS4034 
1 ) , IAA I 704) , I NBON) , ( AA ( 205 I .ARE I , I AAI 206) , I CL A ) , I AA 1207] , IMF L ) . FLAS4035 
21 AAI 208), I Ml , ( AA ( 209) , 1C), (AAI 2101, ICON) , (AAI211! , ANGLE ) , (44(71? I ,FI 454036 
31 CAS I , I AAI 213 I , IE), I AAI 2 14> ,NB ) , I A A ( 71 5 ) . Nfl ) FUS4037 

4 t < AA(216| , I ROT I .( AA(2I 7|,BST) FLAS4D3B 

EQUIVALENCE ( AAI 220 ) ,B i R ) , (AA| 223) .SIR) , I AA ( 226 I .OINK I AAI 235) , SR ) ELAS4039 
1.1 AA(24l),XN) , (AAI 244) , XF ) , 1 A A ( 24? 1 , ON ) , I AA I 7 53 ) , QF I , ( A A ( ?59),RFS PFLAS4D40 
l, (AA( P65 P ,KFn>, (AAI 27L > ,RAS) , t AA { 274 ) , 1 Cl. AS ) , ( AA I 2 78 ) ,NBAN] E LAS 4041 

3 , I 44(292 KNlll , ( 4A ( 295 ) , NE S ) F 1454042 

DIMENSION NEL(20,17) , MAC 14,4,20) , I NCI 190] * 00 (6,6) ,4(90 .7). BIB, P), FLA 34043 

1CI«,2),FFU ),NSET( 100 1 , MSt 1 f 100) ,W( 3,3) FLAS4044 

EQUIVALENCE (AAI 14000) ,FF ) , I MU I 1 ) , JP1 } , INU(2>. JM1 ) . ( N(J ( 3 ) , JS 1 I ELAS4045 
EOUl VALENCE ( FF I I > , NE L ) , ( FF ( 34 1 | , MAC) , I FF I 6hl ) , I WG ) , ( FF ( 75 1 I , Of) I , FI AS4046 
1 IFF 1787 ) , A ) , ( FFI 1417) ,B) , I FF ( 1 43 1 I , C 1 , ( F F ( 1 497 J . NSf T I , ( FF ( 1597) , FIAS404? 
2MSE T ) » ( FF ( 1 697 ) , N ) F LAS 4 04 ft 

MW! VALENCE ( NFS ( 1 I . 1 Cl)L I , (NE 5 I 2 ) , IRI G ) , (MESC3I. I OR ) ELAS4049 

C START THE CLOCK ELAS4050 

CALL TICK) ITIM) FLAS4041 

1NPT=INP ELAS4052 

C SCRATCH TAPE ITAS NECESSARY. SFH IF IT IS GIVEN ELAS4053 

IF (MAS) 1000,1000,1 F L AS 4054 

1DU0 WRITE nilTPtjT TAPE 6,1001 ELAX4065 

10 UP FORMAT ( 46H NO SCRA PC.II TAPE, STRESS LINK JS NOT FXFCUTED.) ELAS4n56 

GO TO 1002 FLAS4057 

C SEE IF THERE IS ANY NDN-QNE-O J MENS I IlNAL FLEMFNT ELAS4058 

1 IF IIT-10NE1 70(10,2000,2 E LAS 40 59 

C NON-ONE -DIMENSIONAL ELEMENTS EXlSl. PRINT THE TABLE HEADING FLAS4060 

2 WRITE OUTPUT TAPE 6,3 EUAS4061 

3 FORMAT I IN] ,1 5X, 87HSTRFSSES AT TH£ NODES OF IWfl- OR THREF-0 [MENS J (IFJ AS4062 

INAL CONTINUUM BY BEST FIT STRAIN T GNSORS/BX » 1 D4HAL l OUANTlTIFS ARFFLAS4063 
? IN OVERALL SYSTFM, UNLESS APPEARS INDICATING DATA IN KXl. FTA FLA$4064 
3AN0 2TA LOCAL SY 5TFM/45 X , 2 *H* INDICATES N(*DE f)N BOUNDARY FLAS4065 

4 //5H NDDF,2X,3KMAT,SH CL AS, 7X, 11 HF I RST CHMP , 4X , HH$6C FL AS4066 

50IYD COMP ,4X ,11 HTH I RO COMP , 4X , 1 IHFOORTH COMP , 4X , 1 1 IIP 1 F TH COMP ,4X , EL AS4H67 
611HSIXTH COMP/ / } PIAS406B 

IF (I4000-IST-IND1 77,22,21 FLAS4069 

22 WRITE OUTPUT TAPE 6,221 FLAS4070 

221 FORMAT IB7H SCRATCH AREA FF OVERLAPS WITH RESIDUAL A RF A , PUSH FF FEl AS4071 

ILJRTHEK DOWN BY RECOMPILING LINK4) FIAS4D7? 

GO TO 1002 FLAS4073 

C START STRESS COMPUTATION AT NUDES 

21 DO 400 I CN“ l , IN 
fCN= ICN 
INP= INPT 
CALL CAS4 

C INITIALIZE AA AND FF AREAS 

MJ 10 1=202,300 
10 AA ( I | =Q, 

DO 20 J = l , 1 705 
20 FF| 1 |=0. 

C GENERATE THE COORDINATES ANO THE DEFLECTIONS DP NODE IfN 
CALL FINOXi ICN.XN) 

CALL FlNOOMCNtON) 

C RE AO IN THE FLEMENT SE 1 

READ TAPE ITAS.K ,LM, IMELIJ.) I ,.) = 1 ,LM) 

IF 1 1 CN’-X ) 1003,4,1003 

100 3 WRITE OUTPUT TAPF 6,1004, I CN.K rn. 

1004 FORMAT < BOh hHRDR IN READING FLFMENT SETS FROM TAPE ITAS. STRFSS LFLA44091 
11NK EXECUIIIIN IS DELETED. ,2161 ' Fj as 40 9? 

60 T ° 100;? FLAS4093 

r '/. ?| e r, I «/^L N ^ n ^"? lKENSInNAL FLFMF » T 47 THF CURRENT NROF FLA54D94 

/. ic (i_«, ’99,390, LCS I ELAS4095 


E L AS 4074 
FLAS4076 
E LAS 41) 7 6 
FI, A 54077 
FLAS4078 
FLAS4079 
FLAS40RO 
F I.AS40B l 
PI. AS 4082 
FLAS40R3 
FLAS40R4 
ELAS40B5 
FI.AS40BG 
ELAS40B7 
F LAS 40 R 8 
Fl.AS4f)R9 
ELAS4090 


3W WRITE OUTPUT TAPE 6, 3991 , ICN ELAS4n96 

3991 FORMAT ( I S, 1 3X , 43HND NON-ONE-DI MENS I (INAL ELEMENT AT THIS NOOF ) FLAS4097 

GO TO 400 FLAS4098 

C THERE IS AT LEAST ONE NUN-TINE-D I MENS I ON AL ELEMENT. FLAS4n99 

C PREPARE NELI I.J),MAC( I,J,K I TABLES AND COMPUTE IKPL.ICLAS ELAS4I0D 

4051 CALL GENE F l AS 4 1 01 

C SET INDICAT URS TO NON-BOUNDARY NODE EL A S4 1 0? 

FLAS4103 
ELAS4J04 
EL AS41D5 
ELAS41 (16 


[N80N=0 
AST=7H A 

SFF IF THE NODE IS ON BIJ0NI1ARY 

IF SO MAKE iNBONssl, AS1 *ih* AND COMPUTF BIR(l) AND AR F 


PLAS41D7 
ELAS41 (1R 
ELAS4109 
FLAS41 1(1 
FLAS4M 1 
FLAS4112 
f l A S 4 1 1 3 
p LAS4l 14 
EI.&S4MS 
FLAS4I 1 h 
FI. AS 41 1 7 
FL AS 4( 1 A 
ELAS41 19 


CALL BOFI 

C COMPUTE STRESSES FOR EACH MATERIAL GROUP 
DO 599 lM=i,(MEL 
] M= I M 

IMET-MAd 1M.1,2) 

I ME T=NEL < 1 ME T , 3 ) 

C COMPUTE STRESSES FOR EACH CLASS 

I CLA = ] CL AS ( |M) 

00 580 IG-1 , ICLA 

ic=ic 

C FIND THE CLASS TYPE 

ICAS*MAC( IM, I C , 2 ) 

ICAS=NEL( ICA5,4 P 

C INITIALIZE ICON, ANGLE, BA 5, DIN, I RUT, AST, l ERR, TE,DT»DG*NPS AND W f LAS 41 

CALL INI.Z FL A S4 1 2 1 

C SEE IF THE GROUP IS OF SHELL TYPE FLAS4127 

IF ( ] CAS- 5 I 6,7,7 FLAS4 1 73 

C YPS, IT IS OF SHELL TYPr, RF-DF TEftMl ME LOCAL AXFS (DIN) ELAS4124 

7 BST-zl^ FCASA!?^ 

S FLAS4 126 

CALL DINA FLAS4177 

C IS LUCAL AXES IDIN) TO BE RUIATPD ELAS4178 

6 IF I I NOON ) 71,70.71 FLAS4I79 

C IF NECESSARY ROTATE DIN ST1 THAT KS! IS IN ZTA-B1R PLANE ELAS4 1 30 

71 CALL HD I N FLAS4131 

C GENERATE MATERIAL MATRIX DU IN LOCAL SYSTFM (DIN) FLAS413? 

70 CALL MFTA FLAS4J33 

C CLEAR THE A AREA GN WHICH A&EQ AND SETA WILL OPERATE FLAS4134 

OO 72 1=1 ,90 F (A S 4 1 35 

00 72 .1=1 ,7 FLA54) 3*6 

72 A I I , J J =0 , PLASM 37 

C CHECK IF THE NODE IS DN BOUNDARY EIAS4I3B 

IF (INBCIN) 521,520,521 FLA$4139 

C YES IT IS ON BOUNDARY. GENERATE FOS FOR StRPSS B.C. FLAS4140 

521 CALL AfiEQ FIAS4I41 

C GENERATE STRAIN PUS FOR Nill) AL LIMES OF FLFMENTS OF CLAS fC ELA9414? 

520 I E =MA C I I M , 1C , I ) + 1 FLAS4I43 

DO 579 11=2, IF ELAS4144 

IF IINP-2) 5201,5202.5202 FLAS4144 

52U2 WRITE OUTPUT TAPE 6, 5203, BS T . NES ( 1) , NFS ( ? ) FLAS4146 

5203 FORMAT (15X,A2,3X,4 LHS TRAIN EQUATIONS ALONG NCIUAL LINES FOLLOW, I 4 , £LA S41 47 

13H X , 1 L I PI. AS414A 

5201 CONTINUE ELAS4149 

! L=lL FLAS4150 

lblT=MACMM, IC.iL) PLAS4151 

CALL SFTA PI.AS4152 

579 CONTINUE ELAS4153 

C PRINT OUT DIN MATRIX AND OEFLNS. IN LOCAL IF NECESSARY ELAS4144 

IF I IKUT) 01,80,41 FLAS4155 

81 WRITE OUTPUT TAPE 6,83, ICN, I [[>IN| I , J 1 , 1 = 1,3),. 1=1 ,3) , ICN*R$T, | X t I),ELAS4156 
11-4,9) AS4t 57 

B3 FORMAT (I5,10H UR.C05INS.5X , 3HKS 1 . 2X . 3P < .4, 5X , 3HE T A , ?X , 3F7 .4, 6 xFL AS4 l 68 
l ,3HZTA.2X,3F7,4/ 15, 10H PEF LEC1 NS , A2 , 1 X ,6E 1 5 . 5 ) FL AS4 1 59 

C EQUATIONS ARE AVAILABLE, SOLVE WITH LF AST SOUARFS FLAS4160 

BO CALL 1.F5T FLAS4161 

C SPF IF ENOUGH INDEPENDENT EQUATIONS EXIST FLAS 4 1 6? 

IF ( I ERR 1 622,523,522 FL AS4163 

522 WRITE OUTPUT TAPE f, , 522 1 , I CN, AS 1 . I ME T , T CAS F L AS 4 l A4 

5221 , E n^* T ( T 5,AUl4,l5,3X,44HNnT ENOUGH I NDEPFNOEN f I NPORMAT T fIN A VA I LFL A S41 65 

E LAS 4 I 66 


1 ABLE ) 


Gtl Tfl 580 

C COMPUTE STRESSES 

523 CALL SIRS 
C PRINT GUI STRESSES 


PLASM 67 
FL 4541 68 
FLA SM 69 
F LAV, 170 

T4F> e 6^5231, ICN, AST, IME7,ICAS,BS1. (SRI I ) ,1=1 ,6) ELASM71 


5231 FORMAT ( I 5 , A 1 , 1 4. I 5 , A2 , 1 X , AE I 5 . 5 I 

C PRINT STRESSES IN 1 HE. OVERALL SYSTFM IF NFCFSSARY 

CALL SAME 

IP I INP-2 I 580,5232,523? 

5232 WRITE OUTPUT TAPE 6,5233 

5233 FORMAT I1H ,//) 

560 CONTINUE 

SV9 CONTINUE 
400 CONTINUE 

IF NONE) 1002. 1002,2000 
C READ THE CLUCK AMD PRINT THF ELAPSED 1IMF 

100? CALL TICK (IT]M) 

C 1 T= I 1 1 M 
C 1 T=C 1 T/60 . 

WRITE OUTPUT TAPE 6,99«,C1T 

94b FORMAT I 1XM6HSTRESS LINK TOOK . F7 . 2 , 10H SFCOMDS,) 
t GO TO "I HF FIRST LINK 

CALI. CHAIN 1 1,1 TAP I 
2000 CALL DI MI <K> 

IF HERR) 1003.1007 . 1 003 
FND 


ELAS4J72 

EI.AS4173 
FL ASA 174 
FLAS4175 
FLAS4176 
FLAS4177 
F L A S 4 1 78 
FLAS4179 
FLAS41B0 
F1.AS41R1 
FI.4S41 RZ 
FLAS4183 
FI.AS41B4 
ELAS41R5 
EI.4S41B6 
FLA V-IA7 
FLAS41A8 
FLAS41B9 
F 1 . A S 4 1 9(1 
PL4S419! 
fL AS4 197 
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Table VII-54. Source program listing of subroutine ABEQ (Link 4) 


* LABFL 

CF4ABQ F'.AftQOOf) 

SHRROliT INE ABFO F4ARO(ini 

C GENERATES EQUATIONS FtlK STRESS RCHlNOARY tflftnillflNS AT A NflRE F6AHOOO? 

DIMENSION 1AU I , AA| 1 |,S< ll.N(H) .1)2) ( 21 1 ,033 (3. 31. €22 <3, 3P FAARonn 3 

l,Pt24P ,UVI24t ,X(R> f Y{») ,Z(H) ,xn<7> ( YI1(7 I , 20 m .Fill) R 

common u.aa 

EQUIVALENCE ( 1 A . A A ) » ( D2 1 » D33 J , I D2 1 1 1 0 1 , E 27 \ , 11)7 II \ 9 ) , E I , 1 02 1 1 20 ) , G ) F A ABQ0O6 
EQUIVALENCE t!Mll.lNMI4(2MBK),HAI3),IT|,||M4),IP),(I«l5l, F 6AB0007 
I IPRSI, H 6 16 1,1 TYPE) , (1 AIV) . 1MATJ ,{IA|R), I DEG). U A 1 9 ) , T NX > . I J A I 1 0 1 .F4ARQ0O8 
2IH) t t|A<ll],IB),{|A<i?)* I MMX}, ( I A( 13) . ! MMY ) , t I A II 4 J . IMMJ) ,(IM15I ,F4Afl(J009 
3 IMF ip , ( IA( 16) , IARF) . < T & ( 1 T 1 ,N[1 ) I , { IAI 76) ,h} ,{ IAI2M i I T Y > , II A (27] , FA A ROOT G 
4ISTM ,1 1AI2M, I FLT), I IAI29P, ITEM), I I A( 30) , J TIC 1, I IAI31) , 1MFT), F^.ARQOll 
51 I A l 32 ) , ISDN) , < IA{33),]Nf>| ,< 1A04I , IMS) t( IA<3Mt msi t< IA07) i F^APCOl ? 

6I0RH) T ( IAI3RI . KlKDl 1 ,< Ul 39), ACEl > . M A 1 50 ) , J 1 I , C I A ( 5 l > , JP I , F4 ARQ01 3 

7 I 1A (52 > , J3>, IIA ( 531 . J41 , ( I A( 6*> , J5 I , ( I A| 55) ,.)6) . I I Af 561 ,.17 > , I I A I57E4 ApOOl 4 

H] , JO) , ( IM5B) . JTY), I IAI59I, I FIB). < lA(ftU), FRO), I I A [611, IIf)l, II A I 62) ,E4AH0016 
9IU) ( < I A (63) ,101 ) , t IAI 64) , )DY> , (IM651 ,ITE1 , UA[4l) , TTAPP F4AH<m6 

EQUIVALENCE I I A 1 66 ) , TCAK ) , II A I * 7 I i 1 t 1 X I . I ! A ( 6B ) , I C I V ) , I I A [ 69 I , F4ABQ017 

1 I C 1 2 ), MA(?n).lCf I I , ( JA<71) , I XX I ,f |A<7?) . I YY1 . { IA(73) , 17.2) , E4 ARQ01 fl 

PI IAI74I, IIC I . I IA175KIDFF ), < IAI 76), 1ST I , I IAI 77). I LSI F4AftQ01<} 

3,1 IA(TB)tIGEM) t MAI /9I,IFRWI,<AA|R0),TF) . [AAlftl > , DT > . ( A A I 82 ) , l>G > , E^AgOPPO 
A I AA| H31 , ALl ) i ( AA(fS4),AL2) . I Aft! 85 I ,AL3 ) , I A A I 86 ) , OP L ) . UM 1 1!7 ) , P ) , F4AB00P1 

51 AAI 1311 ,UV] , ( AA(195»f X) f I AAI IA3>« Y) f 1AA(111 1 , 7 I ♦ ( #*( 179) , f 4480072 

6(AAI IBM, YU) ,1 AA<193),20) • I AA(35U,S) • ( AA ( 40 1 , /GFM ) F*ArtOO?3 

7<IAAU?| ,INP1* ( A A (43), IPBGP , (AAI44) , JPFINP , I AAI 46) ,CONS) , I A A t 4 6 } , I UE'’ ARQ(124 
8). [AA (47) ,Gl > , ( AA( 48 ) ,G2 > , I AM49I ,G3| F* AROQ25 

EQUIVALENCE ( 1 At 349) ,MTJCl , ( I A { 348 ] , I SOT I , I IM 347) . f SOY) . ( Idl 346) E4ARQ026 
l, ISD2I, I IAI345) ,J9I ,< TAI 344),Jl0l,< I A f 34 3 P , J PRS ) , ( I A I 347>,J5DY) F4ARQ0?? 
7., ( IAI 341) ,JSOZ | , ( ] A ( 340 ) , J ARE 1 , I IAI 339), JMKX J , I l A ( 33 R P , JMMY) E4ABOOPB 

3, ( IAI 337 ) , JMMZ I , ( IA( 336 ) , JMP I 1 , ( I A 1335 I . 1 TAS I , ( ) A{ 334 ) , F4AB0079 

4, MAI 3331 , I PR I , ( AM 33?) , DGY > , ( AA ( 33 1 » ,DG7 1 , ( AA (330) , PRFM P4ARQn30 

5 , t I A 1 3PV ) , I P I R I F4AB0011 
01 MENS ION R1KO) ,SIRt3) ,DIN|3,3>,SR<6] ,XN1 3 I . XFI 3 1 ,QNl M ,QFI 61 , FAARQ032 

1A6SI6I ,KED|6) ,BASI3>, ICLASI4] ,NBANI 10 P.NIH 3), WES I 3 I E4AHQ033 

EQUIVALENCE I A A ( 700 ) , I FPNF > , { A A I ?01 ) . I CN P , I AA ( 202 ) , LM ) , ( AA ( 2(1 3 I , AS T E4ARG034 
1 I, I AA1704), INBONP, I A A I 205 ) . ARE ) , ( A A I 706 ) , I C L A ) , l AA ( 207 ) , l Mf L ) , F4AB0015 

? ( AA (70B),1M), I A A t 209 ) -IC!. I A A ( 2 1 0 I , I CDN I ,IAA(211 ) .AMCLE) t (AA(212) .F4AR0036 
31T.ASI , I AA (213) . I E ) , I AA( 2 1 4 > ( NB ) , I AA I 9 1 5 > , MB P F4AHQ037 

4, I AA (216 I, 1«<11 ),IAA(2L7),BST) F4AFQ038 

F-QIJIVAI fcPPCE (AA(220),BIR| , ( AA ( 223 > , S I R J , <AA(22£>I I A A ( l 35 > t SR 1 F4AR0039 

1, IAA [241) ,XNl, IAAI244) ,XF) , IAAI247) .QN) , (AAI7 53) ,0F) , I AA(259) ,RFS) F4AAPO40 


, I AA { 26 5 I i REO ) , ( AA ( ? 7 1 ) ,BASl , ( AA I 274) , ICLAS) , < 6 A ( 27R ) , NB AN ) 

3. (AAI292I ,N(ip . ( AA(295) ,NES) 

DIMENSION Nf L 120, l 71 ,MAC I 4. 4 . ?U 1 , J WC, ( 90 ) , 00 [ 6 , 6 1 , A I 90 . 7 ) . B f f! ♦ R ) , 
1C(8,2) ,FFIl I .NSETUOO) ,MSET< 100) ,W(3.3) 

EQUIVALENCE t A A 1 1*000 ) , FF I, (MU| U.JPl ) , (NIJ(2>, JM1 ) , ( NU f 3 ) , JS l I 
EQUIVALENCE I F F I 1 I , NE L 1 , ( F F I 34 1 1 , MAC ) , I FF I 6bl J * 1 NG ) , I FF ( 75 1 ) ,nO I 
, r pF (787 J , A P, IFF 1 141 7), til, IFF ( 14B1 I T C I , ( FF U 49 7 J , NSET I , ( FF ( 1697) , 
PMSET) T IFF ( 1697 I .W I 

EQUIVALENCE (NfiSM li ICOL), I NC S I ? ) , I ft t G ) , (N&SI3) t I DR ) 

DIMENSION KFK( 3,?l ,NEM3,2 I 
EQUIVALENCE I X f I ) ,KtKl, I Y I l ) , NEK P 
ICDL" ICUL 
(Rin=IRIG 

GENERATE THE RESIDUE VECTOR 
I ST 1*151 + 1 1CN-1 ) * I DFG 
DU 9 1=1 ,lnhG 
ISTI- ISTI-41 
R.ESI 1 l=AA t I ST l ) 

INITIALIZE 

IEQ=2 

Nil )=1 

Nl2)=3 

NI3)*5 

J REB S l 

IR6N-2 

CT=-TF**3/12, 

CR= ARE 70U 11,1 ) 

CL=CR ; »ARE 
IJO 1? J = I*2 
DU 12 1*1 pi 

N(:K I I ,J)*I 

|F ( XN III) 31,30,31 

XX* l . 

UO Til 32 
XX s XN | 1 I 
ICC1N-0 

GENERATE EQUATIONS ACCIJRDING TQ CLASS 
I CAS 3 1 CAS 

GO Tl) M ,2, 3,4,5, ft, 7, HI, ICAS 
PLANE SIRESS AND PLANE STRAIN 
C«=CR7TE 
GO TO 15 


F4ABQ041 . 
F4AB0042 
F 44800*3 
F4ABQQ44 
F4ABQ045 
F4ARQ046 
E4ABQ047 
E4AB0048 
F* A R 1)0 49 
F4ARQ050 
F4AB0Q5L 
f 4 ABQ 052 
F4AROQ53 
F4ABQU54 
F4AFU1065 
F4AP0n5fi 
F4ABC057 
F4AR0Q5B 
F4ARQ0S9 
F4ARQ060 
F4ABQ061 
F4ABQ062 
F4ABQ0h3 
E4AnQ064 
F4AR0065 
E 4ARO06 6 
E4ABQ067 
E4ABQ068 
E4AR0069 
E4AR0070 
F4 A BOOT) 

F 4 Aft QO 7 2 
F4ARP073 
E4ABQ074 
F4AB00 7‘j 
F4A1IOn7A 
F4Afi0077 
E 4 ABQD 7 JT 
E4AR00T9 
F4ABQ0Bn 
E4ARQ0B1 
F4AP1Q0B2 
F4AP0DB3 


C PLATE BENOING 

2 1RFB=7 
IRFN=3 
NEK (1,11=2 
N6K(2< L 1=1 

CR=CR/CT 
REK(2,1 )=-l , 

GU iU 15 

C SIR i I) OF REVOLUTION 

3 CR= ARE / I XX *0D (1,1)) 

GO TO 15 

C SOLID 

4 I EQ=3 

I RRN= 3 

CR= 1 ./UOU ,1 I 
CL~ARF /DU ( 1,1) 

GO TO 15 

C SHELL OF REVIJUPflON, MEMBRANF CASE 

5 I EQ= L 

CR=CR#ARE/XX 
GU TO 15 

C SHELL f)E REVOLUTTUN, MEMBRANE AND BENDING CASF 

b I EQ= 1 

NEK n ,21=3 
CK=CR*ARE/XX 
Gn Tt) 16 

c GENERAL SHELL MEM&RANF CASE 

7 1REN=3 

GO TO 15 

C GENERAL SHELL. MEMIJHANF AND HENOINf. CASE 

n rRFN=3 

NEK ( 1 , 2 ) =2 
NEKI 2,2 P=1 
REKI 2 , 2 ) =“ l - 

C. ESTABLISH THE EQUATIONS 

16 DO 20 J >1*1 RIG 
DO 151 1=1, A 
151 REO C I } - 0 - 

K.-0 

DO lb 1= I REB t IREN 
K»K+ l 

16 REO(K)=RESI T ) 

DO 17 1=1,3 
SIR I n=o. 

00 18 K=1 , 3 

lb SIR! I )=SIRI 1)+RE0«K)*DIN(K, I ) 

17 CONTINUE 

DO 19 1*1, IEQ 
icoN=icnN+i 
K=NFK ( I ,J ) 

LL=N( 1 ) 

1 I = ICOL+ J 

A ( ICON, II UftEKCJ ,J)*CR*STR|K| 

IF IJ-1) L92.L92,19 

192 DU 191 L “1,1 COL 
191 At I CON , L I =CL 40D1 LL , L I 
1WG< I J*100 

]V continu e 

IF ( J- 1 R I <5 1 194,20,20 
194 I KEb= I REN+1 
I R£N= I DEG 
CK=CK/C1 
ICfTN=0 

20 CONTINUE 

C PLACE THE PRESCR1HE0 STRFSSES INTO SR IN SUCCESSIVE ORDER 

L=0 

no 26 J=l , IRIG 
K=icnu+u 

IF IJ-1J 26,40,41 

40 IF I I CAS- 2 ) 46,41.45 

41 Cl=CL/CT 

46 DO 24 1=1.160 
L = L+1 

24 SR IL ) =A( 1 ,K P/CL 
26 CONTINUE 

IE IINP-2) 100,25,25 
26 I RCN= I COL* I ft IG 

WRITE OUTPUT TAPE 6, 2 51 , BST , I CIJL , IR IG , ( I At) , J I , J = 1 , 7 ) , 1 NG f I ) , 
1 IEQ) 

761 FORMAT ( 1 5X , A2 , 3X, 32HEQUAT I ONS FDR STRESS FUG. FULLDW,14 t 3H X 
1 I 2QX p 7 Fl 3 . 5 , I 5 ) ) 

HKITE UllTPUT TAPE 6,2 52 , R ST , I SR 1 1 1 , 1 = 1 , 6 ) , CL 

252 FORMAT U5X , A2 , 3X , 1 3H PRSCR6D. STftS . , 3X , 7E 1 2 ,4 I 

LOU RETURN 
ENO 


fc4Awt)flA4 

r - 4 a BOO 8 5 
F 4 Aft DOM 6 
F4 A BOOB/ 
f 4ABQ0RH 

f4 ABQ0P9 
E4AB0090 
F4AftQ09L 
F4ABQ092 
F4 ABQD93 
F4AB0D94 
F4APO096 
F44B0096 
F 44 B (.1(19 7 
l:4ARQ098 
F4 AHn099 
F 4ARQ1 00 
P4ARQ1Q1 
F4AI10102 
F4AB01 [13 
E 4 AR 0|04 

f 4 A BO 1 05 
E4ABDID6 

F4AB01D7 
E AArtD I OB 
F4Afin)09 
F4ARQ110 
F4AH01 1 l 
F4AHQI IP 
F4AKQ1 t 3 
F4ARQU4 
F4ARC11 1 5 
F4ABQ) 16 
F4ABQJ l 7 
E4AB01 1 R 
F4ABD119 
r-4ArtQi?o 

F4AIUJ1?1 

F4ABQ1P2 

F4ARQ173 
F4ARQ1 74 
F4ABD125 
F44HQ126 
E4ABQ1P7 
F 4 Art 01 28 
E4ABQ129 
F4Aftni 
F4AB013I 
F4ARD1 32 
F4ARD133 
F4ABQ134 
F4ABQ135 
E4ARD1 36 
F4ABP137 
F4ABQ138 
E4AHQ1 19 
F4AR0I 40 
E4AnQl4l 
F4ABQ142 
F4ABQ143 
F4PVR0144 
F 4 ARf) 14 5 
E4ARQ14A 
F4ARQ147 
F4ABQ148 
fc4 ABQ149 
F4AHQ150 
E4AR0151 
64ABQ152 
F4AB0153 
E4ABQ154 
F4CRQ155 
F4ABQ1 56 
F4ARQ1S7 
F4ARP1 5fl 
F4AB0159 
F4AR01 60 
1=1, F4AB0161 
F4AB0152 
.I1/F4ABD163 
F4ARQ1T.4 
F4ABQ165 
F4ABQ166 
F4AR016? 
f 4AB016H 
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Table VII-55. Source program listing of 
subroutine AGEL (Link 4) 


Table VII-57. Source program listing of 
subroutine BOFI (Link 4) 


* C ARffL 

CF4AGEL 

SORROUTINF AGO. 

C Dummy subroutine 

RETURN 
FNU 


F4 Ar.PLOO 
P4AGFL01 

F4a r;FLO? 
F^Ar,FL03 
F4AGELD4 


Table VII-56. Source program listing of 
subroutine BEST (Link 4) 


* LABEL 

CE4BST F4RJTOOO 

SIJHRDI.IT INE RF5T(CIR,.JRAN,MZ } E4RSTOOL 

C DBTAJNS BEST FIT PL ANF AT A NUDE PARS TOO? 

C TO OBTAIN UNIT NORMAL OF BF ST FIT PLANE PASSING THROUGH H7 NODES F4RST0O3 

C OF JBAN SET ON VECTOR Clk F4RST004 

DIMENSION I A(ll , RAIL! , SI 1 ) ,N< 8] , 1)2 1 ( 21 I ,0331 3,3). f.?2 13,3) FARSI 005 

UP«24),UV<24J,xm,Y<S>,im,XnH7>,YD|7 I, 20 1 7), Cl (1) F4&ST006 

COMMON I A , AA EARSTD07 

E OKI VALENCE! J A, AA ) , I O? 1 , 031 ) , I D2 I (10) ,E22)t(D21 I 19 U E I t (021 I 20 I , G IF4BST008 
EDLU VALENCE UAm,IN|,(]A(2),lBN) t (|A(3).lT|,IIA(41 t IP),(IAI5), E^RSTOOO 
1 IPRSI , I JAI6I, I TYPE I , ( IAI7J, I MAT I , ( 1A<0),1OFG),{ IAI9), INX ] , (I A 11 0> , F4&ST01 0 
21HJ 4 MA(11 ), ffll ,( IA| 12),IMMX), I IA( L3J,IMMY| , IIAI14J , IMMZ), UAI 151 , EARS TO 11 
3 IMF I | ,1 IA| 16) ,IAREI, UA(17) .Mill ] .( f A 125 I, MU ( 1A(?6), ITYI , I I A 127) ,E*&ST012 
4ISTRI ,( IAI2SU1ELTI , ( 1A(29), ITEM), (IAOOUITICI,! 1 A(31 1 , IMET I , F4B$T013 

5( I A( 32) * 1SUM) T ( |A(33).1NDU < IA(34), IMSUt (A(36l, I US > , I J A I 37 ) , F^HSt014 

FIOROI , t I A I 3B ) , I DHL) l ) * < I A ( 39 1 , AT. FI. ) , II A I SO I , J 1 ) . (I A ( 5 1 ) . J ? ) , EARS TO 15 

7< 1A( 52),J3U I IA153I ,J4U( 1A(54),J5| . < 1A(55) ,J6l, < J A < 56) , J7 ) ♦ ( ) A < STE^BSTOl b 
8) ,JB| ,{ 1A15BKJTYI t ITAI59J ,1BB| ,( lA(60)tIBtT) ,UA(61) ,!10), I TAI S2I .E4BST017 
9J JA>, (IA163I, IOT), I IA(64>. IDY), ( I MA*>| , ME) , I IAI41 J , I TAP I E4&ST018 

EQUIVALENCE M A I 66 ) , ICAR I , I I A < 67 > , I C IX) , < I A ( 60 ) , 1 C I Y I , ( I A ( 69 I ♦ f4HSTni9 

LICIZ I ,1 IA<701 . ir.Fl I , ( IA1T1J , IXX I , ( 1A(72), IVY] .( IAI73), IZZ), E4&ST020 

?( IA( T4), I 1C I ,( 1A(75),1DFFJ , I (A|76l .1ST), I I A I 77),] IS) E4RST021 

3,( I A (70 |, !GEM),U A I 79), I ERR), IAAI801 ,TF), I AAI 81 I , [JT>, I AAIR2U0G), E4RST022 
4( AA( 83 > ,ALl I , ( AA( B4) r AL2 I , ( AA { B5 ) ,AL3) , ( AA I H 6 I , D?1 ) , ( AA 11 07 ) , P ) , E4RST02 3 
5 ( AA( 1 3 L > , UV ) , IAA(155),X1, (AA( 163] . Y J , ( A A ( 1 7 1 I , Z I t ( AA ( 1 79 I » XD ) , E40STO24 
6| AA( 186), YD I , (AA( 193) ,21) I , ( AA( 351 ) , 5 ) , ( AA| 40 ) ,ZGEM) F4RST025 

7 , t AA ( 42 >. INP 1, ( AA { 43 } , IPBGI , i AA ( 44 > , I PEN) , I A A I 45 ) .CANS 1 * ( AA I 4 6 ) , 1UP40STO2A 
E) , (AA 147 |,G1 I , < AA| 48 ) ,&2 > , ( AA( 49) ,G3 I F4RST027 

F01II VALENCE ( 1A (3491 t NT 1C I , f 1 A I 348 > , 1 SOT ) , ( 1A( 34 7 ) , I SOY ) , I T A I 346 ) F4BSTO20 

1 , ISDZI ,(7 A(345) , J9| ,(TA( 344) , J10) , I I A I 343 ) , J PBS ) . I I A I 347? ,.I$DY) E4RST029 

2, ( IA(34U,JS02)i I I A I 340) ,JARE I, ( IA(3391 ,JMMX| , ( 1A(338I , JMMY J E4BSTO30 

3, CIA I 337 UJMMZl, ( 1 A I 336 ) , JMF I) , I I A ( 335 ) ♦ l TAS ) , I I A ( 334 ) T IDZ ) F4RST031 

4, ( I A( 33 3 I , IPRJ , (AA(332 I, DGY > , ( AA ( 331 } , DGZ I , ( AA< 330 I , PRES J F4BS1032 

5, ( IA(379( , IPIK) F4HST033 

DIMENSION B I R I 3 I » S 1 R ( 3 I , 0 1 M < 3 , 3 ) , Sfl ( 6 I , XN I 3 I , XF I 3 ) ♦ ON I 6 ) , OF I 6 > , E4RST034 

IKESIM ,RFD(6| . BAS (3) , I CL AS ( 4] .MBANI 10 ) ,NIJ( 3 ) ,«H$ ( 3 ) E4BST035 

EQUIVALENCE ( A A { 200 1 , IQNE I, ( AA( ZD1). 1CN), I A A( 202 ) , LM > , U A I 203 > , A$TE*BST036 
1) , IAAI204I , INRUN) , IAA(705I , ARE ) , ( A A ( 206 I , I CL A I . ( A A I 207 > , I MEL ) , F4RST037 

21 AAI20B), IMJ, IAAI209), I C ) , t AA [ 2 1 0 ) , ICON), l 44 { ? 1 l ) , A*GLF > , I A A ( 21 ? ) . F4B$T03a 
3ICASI ,(AAI213),IE I , I A A I 2 1 4 > , NB I , I AA ( 2 L 5 I , MB ) E4BST039 

4»<AA(216), I ROT >• I A A | ? 1 7 ] ,BST) E4BST040 

EQUIVALENCE (AA I 2201 ,BJR ) , < AA( 223) , & I R ) « I AA I 226) , DIN) , < AA (235 | ,SR I E4RST04 L 

1 , ( AA(241),XNI. (AA(244),XF I, ( AA( 247) ,0N) , (AAI253I ,QF), IAAI259I ,RFS ) F4RST04? 

2, (AA(76!>),RFn),{AAI271 I , B A S ) , ( A A ( 2?4 . 1 , 1 CLAS I , l AA ( 27F ) , N RAN ) F4RST043 

3 , ( AA ( 292 ) i N(J ) , ( AA ( 299 ) ,NE S I F4BST044 
DIHFNSICIN NEL120,17| , MAC ( 4 »*■ , 20 I , 1 WG ( 90 I , DD I 8, 6 ) . A I 90 . 7 ) T B I A T 6 ) , 04BSTO45 

1C(R,2I ,FFin T NSET(100),MSETl 100},k(3, 3) E4BST046 

E0U1 VALENCE (AA( L4000J ,FF ) »( Nl)() J t JP1 ] , t NU< 2) , JMH . (NU(31,JSl I E4BST047 
EOUI VALENCE t FF |1 ) ,NEL ), I FF I 34 1)*, MAC I , ( f F { 661 1 T I WG I , ( FF ( 75 11 i TO J , F4BST04 6 
1 IFFI7H7) ,A J , (FF ( 1417) ,B) * ( FF ( 14R L ) ,C ) , I FF I 1497 I , N$F T ) . ( FF(1597 ] , C4BST049 
2MSET) , IFF(1697},M) F4R5T050 

DIMENSION CIROJ.JBANI 10) ,VE1 13) ,VF2(3) F4BST051 

F0LHVALENC6 (fm l,Vf 1 J , <FM4| ,VE2> F4BS TOS ? 

L“0 F4BSTD93 


DO 10 1=1, M2 
K-JRANU ) 

CALL FINDX |K,XF| 

L= L+- L 

All, l l = XF(l)-XN(l ) + l,15 
A(L,2)=XFI2) -XN( ? ) 4 1 .16 
AIL,3)=XF(3J-XN(3I+1,17 
ft IL,4 )-l , 

10 CUNT I NOE 
HE T=D . 

IF ( L— 3 ] 45.14,16 

14 nn 20 i*i,3 

DO 20 0=1,4 

B| I, J )=0> 

DO 30 K=1 , L 

30 B( I , J)*Bl J ,J )+A(K , I)*A| K, J) 
IF (J-31 40,40,4) 

40 M J t l >«BI I,J) 

GD TD 20 

41 cnun*uii,4i 
20 CONTINUE 

CALL INV|H,3,CIR,1 ,[>ET| 

IF ( l)E 1 1 50,45,50 


F4BST054 
E4BST055 
E4BST056 
F4RST057 
E4RST05B 
E4BSTD59 
F4RST060 
F4HSTD61 
F4HS TO*? 
F4BST063 
F 4R5T064 

F4BST065 

F4BST066 

F4MST067 

E4BST06B 

F4RSin<S9 

F4RST07O 

F4BST071 

E4BST072 

F4RSTD73 

E4RST074 

F4RST075 

F4B5T076 


C PUIN15 ARE ON ONE PLANE, COMPUTE NORMAL AS VFClDR PRODUCT E4RST077 

4? DU 46 1=1 ,3 F4BST07B 

F4RST079 

46 VE2( I )=AI2, I ) F4BSTOAO 

CALL veci ( C I R , VF 1 , VE 2 ) F 4 R 5 T 08 L 

5y 0 “’- F4HST0R2 

CAI I UNIT rr i» : n) L4HS I0H3 

F4HST0R4 

56 WRITE OulPUT TAPE G ♦ 57 , XN 1 1 | , XN 1 2 ) , XN ( 3 ) , C I R I 1 ) , C I R < 2 1 »C ) R ( 3 ) F4BST085 

57 FORMAT ( ?0X , 1 2HC00RD IN AT ES , 3F 1 2 .4, 4X , 7HNDRMA L ,3F8.5) F4H STOBb 

55 RETURN 

SNn F4HS10FR 


* LARFL 

CF4BIJF 

5UBMOUTIN6 BOFI 

C TO FIND IF THE NODE IS TIN FUMJNDARY 

01 MENS I ON IA(1 l,AA(l ), Sill, N{B),D2 1(21) . 033 ( 3 . 3 ) , F 22 1 3, ? ) 
UP 1241 »UV ( ?4 ) , X ( R ) ,Y(B) ,ZI{t) , X D I 7 ) ,YIJI / ) » Z O ( 7 1 , G 1 ( 1 } 
COMMON I A, A A 


F^ftOFOAO 
f 4BDF0D1 
EARuFOn? 
E4BMF003 
F4hnK104 
F4f)f|F0D6 


EQUIVALENCE < 1 A , A A ) , I 021 , 03 3 1 , ( 1)2 U 10 > , F 22 ] , ID? 1 I L9 1 , E ) , I 07 1 ( 20 ) , G) F4ROF006 
EQUIVALENCF MA(ll t lNl,nA(2|,IBN),(|AI3),in,IIA(4|,rPl f nA(5l, F4SUF007 
1 I PRS ) , ( IA( 61 , 1 1 YPF ) , II Al 7 I , I MAT) , ( 1 A ( R ) , I DF G ) , ( I A { 9 ) , I NX I , I I A I 10 I, F4BLJF0 0B 
2IH),( |A(11),IBJ,{]A( 12), I MMX), ( I All 3) , I MM Y I ,(14(14), IMMZJ , { |A(15) ,F4BtlFnCi9 
3lNFI),(lA<16),|ARE),llA|17),NUl),nA(75I.M),|]AI26l,ITY).MAI2 7|, E4BDF010 
4lSrR) f |[A(2R),lFLT),llA(29l,Jt»:K|,(lA(30),JIIC),EIA{3I>,IMrn, F^BDFOl 1 

611 Al 3?) , I SUP) ,( IA( 33),1NQ| ,( | A <34) , IMS), I I A (36) , IOS I , ( I A (37) , F4ROF012 

6ICJRU), I I A ( 3B I , I ORt) 1 I, I (Al 39), ACE L U U A I 50 ) , J 1) , t I A ( 51 ) , ,12 ) , F4B(7F0L3 

7 ( J A ( ?2) * J3 I i ( 1 A ( 63 ) ,.14 I , { I A ( 54 ) ,J5 ), (I A( 55) *.16) , I I A f 5M ,U7 ) , ( I A ( 57F4HUF014 

B] ,JH) , [ IA(5BJ »JTY) ,( 1A(59), IBB) . ( IA(6U),JBn),( |A(6l),Ilnj,( |A(67) , F40r)FO 1 5 
911 A] ,( I AI63) ,IfiT), IIA(64) , ll)YUf |A(/,5) ,I1F) ,(IA{41 ), 1T6P) F4RDF016 

EQUIVALENCF II A 166), 1CAAU< |A(f.7), I C I X ) , I 1 A I M I , 1C 1 Y U (J A I 69 J , F^Pr-FO 1 7 

1 IC 12) . I I Al 70) , ICF1 ] , (IA( 71 | , ixx ) , (IA(72) , IYY | , I 1 Al 731 , 177 ) , F4R[1F0)R 

?llAI74],iICI,ITAI75),!DFP),(IA[76l.lST),IIA|77|iI]S) F 40 OF 019 

3.(|A( f H ) , I GFM) ,114 179).] FRR ) , I AA [HO J ,TEJ , ( AA ( R 1 ) ,DT ), I A A 1 H? ) ,0G) , E4Bf)F0?0 
41 AA [H3 I , ALU , I A A(B4) , AL2 I » I AA( H5 ) ,AL3 I , (AA( R6 ) ,D21 I , ( AA( 1 07 I , P ) , F^BClFO?! 

5(AA I l 31 ) ,UV I , I AA( 145 I ,X I , ( AA ( 1 63 | , Y I , ( AAU71 ) ,7 1 , I AA( 179) ,XD) , F4ftOF(l?? 

61 AA [ 1B6) ,YD) , I AAI 193 I , ZD| , ( AA ( 351 | , S) , ( AAI 401 , 2! GEM] Jfi.HnFn?3 

7, ( A ft I 6 2 ) , IMP] , ( A A (43) , J PBG I , ( AA< 44 ) , IPFN) , IAA(45I ,CDNS ) , ( A A [ 46 I , I UE4PflFn24 
81 , ( AA ( 47 ) , G 1 I . I A4(4fl | , 02 I ,4 AAI49) ,K3) E4RnF025 

EOUI VALENCE I I A I 349 ),MTIC),I ! A I 34R > , I SDT ) , (1 A( 3*7 I , 1 SHY ) , 1 IA| 346) F4P!OF026 
1, I 5DZ ) , I IAI345), J9I, ( I A f 344), J10),( IA(343] , JPRSI , ( I A ( 34? ) , J SOY 1 F4BOFO?? 

2 , I 1 A I 341 ) ,.isn; ) , ( I A ( 340 I , J 4RF I , ( IA(339I ..1MMX) , I 1A [ 33ft) , JMMY I E4nnFn78 

3, I T A I 337 ) , JMMZ ) , II Al 336UJMEI ) . II A( 335 ) . i TA S I , < I A I 334 ) , J 07 1 E6BDF029 

4, I I A I 333) . I PR). I AA I 332) , DGY J , [AA ( 331 UDGZ ) , |AA( 330), PR ESI F4F)ilFn30 

5 ♦ ( 1 A < 329 I , I P I R I E4RDF031 

DIMENSION BIK(3),SIR(3I ,I1TNI3,3),SR(6),XN(3] ,XF(3I .QNI6),0FI6)« F40riF03? 

IRES! 6) ♦RE0(6).BASI3I . ICLASI4I ,NRAN(10| ,NI| ( 3 ) , MES I 3 ) F*R0FO33 

€041 (VALENCE I AA I ?00 ) , TUNE ), I AA( 201 1 , ICNI . ( AA I ?07 ) ,LMI , ( A A I 203 ) , ASTF6BOF034 

I ) , I AA ( 204 ) , I N FI ON ) , (AA(205),ARF), I A A I ?06) , 1 CL A ) ,{AA< 207> ,1MEL) , F4PMF035 

?IAAI?OK>,IM|,|AA(209| T ]Cl,(A4(210]'l r.DN) , ( AA I 21 U , ANGLE > , I A A I ? L?) , r4HOF036 
3ICAS), IAAI213) , IF I , IAAI214) ,NH ) , (AAI215J.MB) F4AUF0 37 

4,( AAI 2161 , I RUT1, I A4(217),RST) E4BOF038 

EOTIIVAI fNCF I AAI220),flIR), (Aft I 2231 ,SIK I , ( AA l ?2 6 > , fJ I N | , < AA(235 ) ,SK ) F4RflF(139 
1 , I AAI24I ),XN| , I AA(244),XF), (AA(247I ,QN) ,(AA(253J ,QF).fAA(259l .RES) F4RDF 040 

2. I AA( 265), RED), I AAI 27 l ) .HAS) , I AA ( 2 74 J , 1 CL AS ) , ( A A < 27 B ) . N&AN I F4R0FI141 

3, I AA| 29?), Nil I , ( AA ( 295 ) , NFS ) E4RPF042 

DIMENSION N&L I 20.17 ) , MAC I 4 ,4,20 ) , I WG 1 90 ] , £)[) I 6. 6 ) , A 190 . 7 I , H ( R , A I , E4BQF04 3 

1CIB,2>,FE(1 ),NSF Til no UNSET UOOJ ,W(3,3) E 4 R 0 F 044 

EQUIVALENCE I AA ( 14000) *FF) , INUI 1 I i .J P 1 ) , I Ml r( 2 ) , JN 1 I , ( NlH 3 ) . J S 1 ) E4RDF04 5 

EQUIVALENCE I FF U ) , NE L 1 , I FF ( 34 1 J ,NAC ) . I FF I 661 ) , I WG I , f FF I 76 I ) ,nn) , E 4 BDF 04 6 

I I FF I 787 ) , A ) , IFF( 1417) ,11) .1 FF< 14R1 | ,C) , (FF( 14971 , NSF T ) . I FF ( 1 597 ) ■ F4PnF04 7 

2MSET ), IFF ( 1697) ,W) E4B(1F048 

FIND MINIMUM CONNFCTIVITY OF INTERNAL NODES (II. TM) E4POF049 

IC " 4 FARDFOSO 

I* 6 " 0 F4BOF051 

E4RHF052 

IH5=2 F4RDF053 

F4Rf)F054 

OO 10 I-l.LM F^RUF055 

IF ( IC-NEL I I ,4 | ) 15,11.15 E4B0FO56 

1 £4HnFf>57 

GO TO 10 F4ftOFO <5 R 

IF (1HS-NELI l.S) I 10, 9,10 F4RflF059 


9 156=156+1 

1U CONTINUE 

IRES=LM- 1 4-“ 156 
IF ILM-I41 13,12,13 

13 IF ILN-I56) 16.14,16 

16 IF ILM-IRESI 90,17,90 

C THREE-0 ! MENS I fJNAL CONTINUUM 

12 I L I M= 3 

GD TO lti 

C SHELL OF REVOLUTION 

14 1 L I M= 1 
GO ID 1H 

C TWO-DIMENSIONAL CONTINUUM 

1 i 1 L I W-2 

C GfiNERATE LIST DF NODAL LINE SET VIA NUDES INSFTI 

IB NtJ =0 

DO 19 I=L,LM 

C UNO SEQUENCE NUMBER UF NDIJF ICN IN I TH BLFMPMT 

1MS = NEL I I .5) 

DO 20 J=1 , IMS 

IF MCN-NEL(I,J+9) ) 20,21,20 
70 CONTINUE 

GO TO 19 

C FIND SEQUENCE NOS OF NODES AFTER ( JP 1 I , R FFOR F I JM1) , AND ARriVEUSU F4ROFOB3 
IF ( I MS - f ! ) 27.26,26 F480F0B A 

E4BGF0B5 
E 4RQF0R6 


E4RDF060 
E4BDF061 
F4aUF062 
F4RMF063 
t 4H0F [164 
E4RDFD65 
E4B0F066 
E4ROF067 
F4RnF06« 
F4BOF(169 
F4HUF07D 
F4RDF071 
F4RUF0T2 
F4R0Ffi?3 
F4RDF074 
F4BDF0T5 
F4RDF076 
E4ROF077 
F4BUF0TH 
E4H(1FD79 
E4RUF0RCI 
E4RDF0P1 
F4BOFOP? 


2t JP1=J+1 

IF (JP1-IMS) 23,23,72 


22 JP1=1 

23 J Ml = J“ l 

IF (JM1) 24,24,25 

24 JM1 = I MS 

25 JSUJPl+1 

IF ( JS 1 - 1 MS ) 28,28,281 
2t»l JSl=l 

GO TQ 78 

76 KK=( (J-l ]/4)*4 

IF (JPI-4-KK) 29,29,30 
3U JP 1 = 1 < KK 

29 JMUJ-1 

IF ( JML-KK I 31,31,32 

31 J«1=4+KK 

32 JS1-9-JP1 

C GFGERATE nOual LiNfc St) NSF T 

?b DO 300 K = l , HIM 

KR=NU(K) 

NB=NB+1 

N5ET(N9 >=NEL I I , KK +9 ) 

3UU CONTINUE 
IV CONTINUE 

C GENERATE LIST OF NODFS TIN HIHINDAR Y . NR AN ARRAY 

GO TO [601 ,601,607 I , IL I M 
C THREE DlMtNSinNAL HFSH CASE 

602 K=0 


F4HUF0R7 
F*B(!FORR 
E4R0F0R9 
F4pnF090 
E4RUF091 
FtHnrn97 
F4Rnr ; 093 
E4RDFD94 
FARUF095 
E4HHF096 
F4RRF09T 
F4RfiF09n 
F4B(iF(}<)s 
F6RDF 1 DO 
f*h(if mi 
F4R0F1 n? 

F4U0F103 

F4R0F104 

F 4flOF 105 
R4RHF I 06 
F4W1FI07 
F4RnF LOR 
£4enFlD9 
E4RUF1 10 
F t *HPF1 1 1 
F*Bnr-i i? 

F<*RI1F1 1 3 
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Table VII-57 (contd) 


DO 603 1=1 .NR, 3 

F4IWF1 1 4 

461 

DO 604 L ~ 1 , 6 

F4BHF115 


K-K*-J 

F a BP FI | 6 


J'L/2 

F^RnPll? 

462 

IF IJ-31 6031 ,6032 ,6032 

fc4R(jFll8 

C 

6032 J*0 

F4BDf 119 

448 

6031 IJ-I+J 

F4BCIF120 

4(>3 

604 MS6T|K)=NSET(IJI 

E4BDF121 

C 

603 CONTINUE 

E4R(»F122 

4 i 

KfUK 

H4RPF123 


MR =0 

F 4R(]Fi 2A 

c 

OU 605 1=1, KB ,2 

E4BPf 125 


12=1+2 

F4M0F126 

c 

IF 1 1 2- Kfi ) 6U51 ,6051 ,605 

F4BPF127 

4 0 

6051 IF 1 MSET (III 605,605,6052 

E4HT1FI 2R 



6U52 I J-0 

DO 606 J- T 2 ,KB , ? 

IF IMSEH i|-MSFV( Jll 6061,6062*6061 

6061 IF (MS£T(M-MSET(J*1 I) 606,6063*606 

6063 IF IM$6T( l + D-HSFTI Jl ) 606,6064.606 

6062 IF < MSKT ( 1 + 1 l-HSET< J+l II 6U6, 6064, 606 

6064 HSET ( J ) =Q 
MSETtJ*l 1=0 
IJ=1J+1 

606 CONTINUE 

IF (1J-1J 6053,605*46 
6053 MMB=M6 
00 6064 

IF (NBAN( J l-MSET ( I I > 6054,6055,6054 
6U54 CONTINUE 
MB=M&+1 

N&AN ( MB ) = MSET ( 1 ) 

6065 DD 6056 J=1,MMB 

IF IHflftNIJI'HSEKl + lJI 6066,605,6056 
60>6 CONT IMtlE 
MB=MB+1 

NRAN ( MB ) ■ HSET ( l+l I 
605 CONTINUE 
r,n in 6057 
601 DO 40 I -1 i MB 
40 HSETM>*NS6T< I ) 

MB=0 

00 39 I =1 , NS 

IF (HSET |l)) 39,39,42 

42 NOD£=MSETtl> 

KLIM-0 

DO 38 J=l ,NB 

IE tNOf)E-MSET< Jl> 38,37.38 
3/ M5FT ( J I =0 

KLIMrKLIM+1 
36 CONTINUE 

IF IIHM-2) 411,412,602 

411 IF IKLIM-1I 44,43,44 

412 IF CKLIH-2) 43,39,444 

C MOKE 1 HAN 2 REPETITION IS POSSIBLE IF 

449 IF I 1 GEM-1 ) 44,39,44 

43 MB = Mft * l 

HD AN I MB ) =NUOfc 
GQ TO 39 

44 WRITE 0U1PUT TAPE 6,961, 1CN 

961 FORMAT II 5 , 1 5X , 44HERR0R IN MESH TOPOLOGY. NUDE A5SUMH0 INTERNAL) 
GO TO 90 
3y CONTINUE 
6U57 IF I MR I 90,90,45 

45 GO TO (461*462*463) ,1L IM 


F4M0F129 
F4RDF130 
F4BQFI31 
F4BPF1 32 
EAR f II- 1 33 
E4RPF134 
F4BDF135 
E4B0F1 36 
F-4fjnF137 
F4BUF136 
F4RMF139 
F4R0F1 40 
F4RDF 14L 
E4B0F14? 
£4RPF 143 
E4BnF 1 44 
E4ROF145 
E4R0F1 46 
E 4R0FI 47 
E4R0F14R 
F4BUF1 49 
E4RDF I 50 
E4R0F 1 5 J 
f 4R0F L 52 
E4&PF 153 
F AfiOF l 54 
F4RPP155 
£4H(1F 156 
E4RCIF1 57 
E48DF150 
F4B0F159 
t4R0F160 
E4flnFl6l 
E4B0F 162 
E4B0FI 63 
E4PDF164 
E4B0F165 
E4ROF 166 
E4BDF 167 
E4RDF168 
E4R0F 1 69 
E4ROF1TO 
E+B0F171 
F4B0F172 
F4R0F1 73 
F4R0F174 
E4B0F175 
E4|jnF176 
f 4Rf.lF 1 77 
t,. «nc t ?R 


502 

503 


NRAN( 1 )=0 
NRAN(2)=0 
IF (Mh-Ll 44,47,90 
IF ( MR-? I 448,47, 44fl 

OTHER THAN 2 NEIGHBORING BOUNDARY NPPFS PtlSSIBLF IF K-EMSl 

IF ( 1GEM-1 ) 44,90,44 

if (MH-3) 44,47,47 

1 HE NODE IS ON BOUND ARY 

|NR0N=1 

AST- 1 H + 

ESTABLISH OUTER NORMAL ON MR AND AHfcA ON AftF 
GO TO ( 48,49, 50) , IL I M 

ONE— 1)1 MENS 10NAL CUNT IMIJIJM , SHELL OF REVOLUTION 
CALL INFKIBIRI 
0=-l . 

CALL UNIKBIR.il) 

ARE =0 
GO TO 90 

TWO-DIMENSIONAL CONTINUUM 
CALL i NEK ( S I R ) 

K-=.NRAN( 1 ) 

CALL UNDXIK.X) 

K=NRAN ( 2 ) 

TALL FINDXIK.Y) 

DO 491 1=1,3 

Rim n-x 1 1 )-y i ii 

AKE-l . 

CALL UNI T ( B 1 R ♦ ARE 1 
ARE-ARE/2. 

0= SC Al. ( B 1 R , S ! R I 

DO 49? 1-1.3 

BIRt 1 l-SIRI 1 1-Q*B1RI I I 

IF < SCAL IRIK, S IRI ) 493*441,494 

1 N80N=0 

GU IQ 44 


0= L . 

Ill) 111 495 
Q=-l . 

CALL UNIKBIR.O) 

CO TO 90 

THREE-DIMENSIONAL CONTINUUM 
CALL 1NER($IR! 

CALL BESTIBIR,NBAN,MR} 

IF ISCAL ( B IR,SIR M 501,441,602 
0 = 1 , 

GO TO 503 
0-— L • 

CALL UNITIBIR.CI 


0 - 0 . 

I)(] 504 1 = 1, MB 
K=NRAN < 1 ) 

CALL FINDXtK.XF) 

O-Q+SORTF II XF ( l >-XN(l 11 **2+ < XF< 2J-XNI ? I )**2 + (XF ( 3>-XN< 3) )**? ) 
ARE=MB 

ARE=3.14159»(0/(2,*ARE1)«*2 
IF < IMP-2 1 100,91,91 

WRITE OUTPUT TAPE 6*92, I ON, AS 1 * MB. ( NH AN< I ] , I = L * MR ) 

FORMA) < 15, A) , l4X,2lHB0l)NnARY MODES FOLLOW , I 20/ ( 20X , 20 T 5 J) 
WRITE OUTPUT TAPF 6, 93 .NB , < NSE T (I I , I « 1 . NR ) 

FORMAT { 20X , l flHNSt T ARRAY FOLLOWS , I 20/ ( ?0X , 20 I 5 > I 
WRITE OUTPUT TAPE 6* 94, ARE, I 6 I K < I I, 1 = 1 ,3) 

FUKMAT (20X,5HAREA=,E15.5,5X, 12HDUT6R NOR MAI , ?X , 3E 1 5 ,6 > 

RETURN 

END 


F4R0F1 79 
f 4RHFI BO 
F4BUF1BT 
E 4B0f 1 R? 
F4RMF183 
E4R0FIH4 

F4BGFI R5 
F4BOF186 
F4BI1FLB7 
C4ROF188 
F4B0FI R9 
F4BPF190 
F4BI1FL91 
F4RMF192 
FAfUlFl 93 
f 4R0FI94 
E4B11F195 
F48PF196 
F4FI1F197 
F4miFl9B 
(■4BUFL99 
E4H0F200 
F4B0F201 
F4HI7F202 
E4BHF203 
F4RDF204 
E4RMF205 
F4RDF?n6 
F4R0f 207 
F48UF20S 
E4RI1F209 
F4HUF210 
F4BnF?l 1 
F4RDF21? 
F4BflF2n 

F4H0F214 
F4RUF216 
F4B0F21 6 
F4Bnf?I 7 
F4BnF2ia 
F4U0F219 
F4BQF220 
E4RnF?2 l 
E4FU1F722 
F4BUF223 
F4R0F224 
F4B0F225 
F4BT)f2?6 
F4B0FP27 
F4R0F27H 
F4RflF279 
E4BDF230 
F4A0F23L 
F4BUF232 
E4R0F7T3 
E4R0F234 
F4B0F215 
F4B0F236 
F4B0F237 
E4BDF23B 
E4B0F239 
E4BOF240 
g4Rf.lF241 
E 46 OF 2 4? 


Table VII-58. Source program listing of subroutine CAS4 (Link 4) 


* LABEL 

CF4CAS4 

SUBROUTINE CA54 
c DUMMY SUBRDUTINF 

RETURN 
END 


E4CAS400 

F4CAS401 

E4CAS402 

F4C.AS403 

E4CAS404 
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Table VII-59, Source program listing of 
subroutine CODI (Link 4) 


Table VI1-60. Source program listing of 
subroutine DIMI (Link 4) 


* LABEL 

EACUPOOO 

subroutine com t-Acnoooi 

C TO GENERATE LOCAL -OVERALL CnflRO I NATE 7ft ANSFORMAT 1 DM MATRIX E4C00002 

0 1 MENS I fJM r a ( 1 | ( AAI 1 ),S(1 J,N[0>,D21 (21 ] ,033(3,31 ,E22(3,3P E4COIJ003 

UP12A] ,UV(24),X(B| ,Y(8),ZP HI ,XDI 7 l,YD( 7 I , 7.DI V P , R1 11 > EaCOOOOa 

COMMON IA.AA EfcCUIMJOi 

EQUIVALENCE (I A,AA) , (021.03 3 I .<021(101 , F22) , (021119) ( E) ♦ (021 1 20 I , G ) F4CUI1006 
EQUIVALENCE UAll)'lN)«IIAm'IflNU{IAt3>'rT|,fIA(4> T jp).ilA<4>. riCODOO? 
llPRSl,UA!6i,lrYHEI.(!A(T| t IMAT|,< I A ( B ) , 1 0<=G ) . ( l A ( 9 ) , I NX I . I I A ( 10 I . E 4COD006 
?|H|,UA( 11 ],I 8 ),MA(I 2 ). I MMX), I JA| 131 , JMMYI , (J A ( 1 A ) , 1 MM7 ) , I (A [ 1 5 ) ,E'<Cnr>009 
3IML I )♦ I IAUAI r IARE), UA| 171 tNIIP U M AL251 ,Mt r f IA| 2 A ) , 1 T Y I , < I A I 27 ) , E 4CDIMJ I O 
4I5TR),( IM28), 1ELT), I IA(29>, ITEM) , |1A| 3D),ITIC] , ( I A(31 I, JMET), t4Cni)0)l 
9f IAI32I, ISUK) f I 1AI33UIND) i I1A(34] *< IA<36), inSI .< IA(37) . F4CriOf>12 

6 1 OftO ) , I I A t 38 ) * I OHO l ) « 1 1 A I 39 P , ACEL I , ( 1A( 50) ,J1I , (I A < 51 J ,.12 1 , F4C0D013 

7 C I A t E»2 I ,J3J , ( )A<53) , J4 ) , I IAI ?4),J5), n A| 55] , Jf, > , ( IAI56I ,J7) t ( |AI 57E4CI10014 
8 ) , JB ] » f IAI5RI. JTYI , I I A| 59} , IBR) , I lAI6Cl)»lfi(Jl, ( IA ( 6| 1 t 1101 ,( |A ( 6?) ,£4CUDCU5 
9I1A1 , (14(631 *1011, (JAI6A3 , IDT I , (IA| 66) f | T F I , ( 1A( 41 ) , I TAP) E4CPU1016 

r.OlU VALENCE I I A (66 ] , I CAR I . I I A( 6Y) . ici X } , { ! A [ ft 8 I , IC [ V ) , f I f, I 69) , £4000017 

1 1CIJ] , ( IA{7Q),1CFI ] , l 1 A i V 1 I , I XX} 4 ( JA172I , IVY), ( IAI73I , 1221, E4CnO018 

21 I 4(74), J 1C I ,UA(75), IOFF ] .{ I AI7fa) ,IST) , I I A I 77 I . US) E4C0DO19 

3,1 I A < 78 > , IDEM) T { IM79), IERK )» 184(301 , TE), [AAI81 >,0T) , (AA(82),nG) . (- 401)0070 
4< A4|63),AL1 ), IAAI84J ,A(?) , (AA(B5),A[.3I ,(AA(Bfc) ,D21> ,(AA(1G7| ,P) , E4CCID021 
5IAAI 131 ),UV>, I AAI 155),X] , (44(16 3 I ,71, ( AA( 171),Z>, (AAP 179),XD) , F4COD022 
M A A I 166) , YD) , I AA< 193 ) ,2l) ) , ( AA( 351 ) , S ) , I A A I 40) , ZGfjNI £4000073 

7, (AA(42) t INP), ( AA(431 T IPBGI. ( AA f 44 > , I PEN ) , [ AA ( 4 5 I , CONS I, ( AAKft) , Hll-4CnnO?4 
H I » ( AA (47 ) , G1 I , ( AA(48) ,f,2 ) , I AAI 49 J ,G3 ) p 4COD02 5 

FOUJ VALENCE ( JA (349) ,N1 iC ), ( I A 1 340 1 , 1 SOT) , ( IA(347) . iSDYl , t I A i 346) E4C00026 

1 . I SDZ I . I I A ( 345) , J9) , I I A I 344) , J10) , (I A ( 3431 , JPRS) , ( 1 A I 3471 , JSDY ) E4C00027 

2 « I I A I 341 ) , J$OZ ] ,f I At 340 1 f JARE ) , ( I A I 339) , JMMX) , II A I 33R) , JMMY) E4COD028 

3, I lAI33?),.)MM7) t [ [A(336J ,JMPI > ,( 1A<335| » P 7 A5 I . (I A f 334 ) , JOZ ] fc4Cnpr>79 

4, [ IAI 333)tiPK), ( AAI 332),DGY I, f AA(331) ,DGZ ), IAAI330] -rftftFSI r 4000030 

5 , ( I A I 329 ) 1 1 P [ ft ] F4CU0031 

01 ME NS TON A(6,6),0lR(3,3l . DVR ( 1 2 ) , T I 6 I , PD ( 3 I , PN I 3 ) , DUG ( 3 I E4COD032 

EQUIVALENCE I AAI ?00) , A ) . |AA| 236) , FL ) , I A A ( 237 ) » Aft F A ) , I A A ( ?3>* ) , I I ) E4CHD033 
l » ( AA ( 2391 ,JJ) , ( AA ( 240 I > IR } , (44(241) , JR ] . (AM74?| , NY ) . I A A 1764) , 01 R ) F 4COUC134 
2, ( AA I 306] , UVG ) , I A A | 29 I ) , PD ) , ( A A I 294 ) > PM I ■ ( AA ( 297 ) , OUC>) , I AA 1300 ] , T MJ4CH0035 
EL = SDKTF|XOn 1 )+YD( 1 ) * YlJ I 1 I 7 01 1 ) 4Z 0 ( 1 ) ) F4CLIQ036 

IF (FL) 1010, 10[0, l [0 P4Cfl()037 

110 IF (IELT-3) 115,250,119 F^COOOTR 

115 DlRU.lUXOdJ/FL F4Cfin039 

niRPL,2)=YD(l)/FL E4CDD040 

Dlftl 1 . 3 ) -Z0I1 > /EL F4Cnn041 

IF (JMFI) 1(1 L I) ■ 210, 130 F4CfinUA2 

210 IF IIGEM) 1010,220,1010 E4C00043 

130 ICFIJ=ICFI4JMF| E4CCII>044 

IF |ABSF(AA(ICFl.lJ)-90. I 140,140,1010 F4Cnr»045 

140 F| = AA( ICEIJ1*3. 1415926/1R0, F4C(ID046 

IF <H) 144,144,146 E4Cn(J047 

144 SIGNFI-U F4C ] 048 

GU Til 140 F*C.i!Si5 

fI GK,F,a1, F4C00050 

I 4 ? «0IRM«1 U-.1E-3) 140,150,1 60 F4Cfi00M 

F4C0f)052 


E4DIM0C0 
b4D I MOt) ] 


niR 13,2 ) = -0 1 ft I 2 , 3 ) 
DlR(3,3)»0IR(2 1 2| 
IOOO RETURN 
1010 IERR«1 

GO T FI 1000 

END 


E4cnnn53 
E4f.nno54 
E 4CI ID065 
E4CD0056 


150 IF(ABSF([)1R( 1.31 1-.1E-3) 140,180,1/0 
160 0lKI7,2>=CnSF(F1 ) 

4S0»DiR(L,l )*0IR[ 1,1] 

AX»1 . + nJK( 1,31*0 Ift( l , 3 ) / ASO 
BX-niRfl , 2I*0IRU, 3I«0]R|2,2] /ASQ 

CX = 0[R[2,2l*fHK( 2,2 I+OIRI 1 , 2 >*f)J M ( 1 , 7 ) *01 R I 2 , 7 ) $0 l R I 2 , 7 . ) / ASO-1 . E4C0D057 

OIR(2»3l = ('-BX+Sl GNF I *SOftTF ( BX*fiX- AX*C.X ) )/AX EACnROSft 

169 0IR(2,1 1-I-D1RI L,2)*l)IR(2,2l-tJ|R(l ,3]*0|K < 2, 31 )/rilRfl ,1 ) E4C0P059 

GQ T U 1 90 j-^rnnn^n 

1/0 OIR < 7,2 I =CflS F ( F I p Ur.p'noM 

r)lR(2,3l--0lft(l ,2)*L)lRI7,2}/0Ift [ 1,3) F4COD062 

OIR I 2,1 P=SIGMFI4S0RTF« 1,-DI«| 2 , 2 ) *0 t R | J? , ? > -D Ift I 7 , 3 > *U 1 R l 7 , 3 I ) fi4CDf)063 

GH TO 190 E4rnrin44 

ld0 m!!^ 3 !? SF<r,) E4C(!I)064 

uiM/r/i'n, (-4rnnn6h 

0IR(2,1 )=Sir,NFI*$ORie | L.-niR | 2, 3 )*01ft 12,3)) FAC 00067 

190 OJRP 3, 1)=0IR[1,2)*I)|R(2 I 3I-D(R| 1 , 3 ) *P1 1 R | 2 , 2 ) F4Cri>t)6R 

D1 R ( 3, 2 ) =-l) I R I 1 , 1 )60IR I 2,3 J+F1I ft I 1 ♦ 3 ) 4Q l R ( 7 , 1 ) E4r(i|]069 

D1RI 3,3) =1)1 Rfl , l 1*D|R(2.2)-DIKI 1 ,2) *PIR I 2, 1 ) F4COD070 

GO TO 1000 F4C(ln07l 

220 0 f K [ 2 , 1 ) t_ 1)1 R 11,2) F4CI072 

[]iRi2,2)=DrR[) , 1 ) F 4 c ir on 

LMR( 2,31 =0, 4LUUUM 

nifto,n=o. 

0 1 ft ( 3 , 2 I =0. 

niRi 3,31=1* 

GO TO IOOO 
250 OIRI 1 p 1 ) e 1 . 

Dim 1 ■ 2 >=o, 

DIR ( 1,31=0. 

01RI2, | )#0. 

DIft(2,?)=XD(l l/EL 
OIR P 2, 3 )=YDt M/FL 
DIR(3,1)=0. 


F4Cn0074 
F4C0DO75 
r AcnnoTA 
F4C00Q77 
EACf]f>07B 
F4Cn007y 
E4conofto 
F4CliDnni 
F4CniJ0R2 
F-4C.nD0fl3 

F4CODOR4 


F4cnix>n5 
F>C 1.11)086 
F4cnnoR7 
F4Cr0088 
FACflD0R9 
E4C 00090 
E4r.uon<Ji 


* LABEL 
CE4DIN 

SUBROUT PNE OTMI (X) 

C TO GENERATE AND OUTPUT STRESSES OF ONE-DIMENS \ ONAL ELEMENTS F 4 DI* 0 O 2 

^lMENSTON JAdj ,AA(n,Sll).N( 8 | , 021 ( 21 , ,D33(3,2),E22M,3) F4DIM003 

1,P(26),UV(24) ,XCB) ,Y(R] ,2(8] ,XDf7l ,Y0( 7! ,Z 0(71 ,01 I 1 > F4D1M004 

COMMON I A, A A P401WJ0? 

EQUIVALENCE! I A, AA) , 1021,033) ,(021 UO > ,F72) , (0211 19>,E1 . ID? 1 1701 ,C|Fa01MC06 
EQUIVALENCE I 14(11,(9) , ( I 4 I 2 I , 1 « N ) , ( T A ( 3 ) * I * , , | J A [ a , , [ p , , < |A(S|* MOOT 

irRRSI , ( 1 A ( 6 J , 1 TYPf > ,114(7) * TMAT > ,(TA (P) ,10^^), ( I A 1 9 ) » ! NX ] * ( f A ( In , ,=401 Mnq R 

2 IH ) , ( (A(l 1) »[3l ,( JAP 17( ,7MM*, , , l4in,,)M«, , , , m, 1 <* ) , I «,w t 1 , , lAt lip , h4U) Moov 

3 IMF I 1.(141)6), I APE) , I r A( 17> »N(1 ) I ,( I A 175 P *V| ,( I A( 26 ) ,ITY ) ,f |A(27 , iFADlMOln 

4! STB 1 ,( IAI28),1ELT) , ( I A i 2 9 ) , I T C M I * (T M 3D( , 1 T K I , < ! A ( 31 i , I ye T ) , FAD 1 Moil 

51 1 A( 32 ) , I SUM) , ( IA(33) ,lhDl ,MA(34),fM$) ,UA|36I ,705) 1 t I At 3 ? I , £40 1 MO 1 2 

6I0R0 P 1 1 JAP 381 , 10PD1 I , 1 1 A ( 39 ) « AC EL >»(IA(50),J1I,<IA(F1),J2). F4D7M013 

7( 1AC52J ,J3)tl I A< S3 > ,JA 1 ,< |A( =.<,), JS>,( IA(S5),J6I,(!A(661,J7),I 1 A [ 57E40IM014 
B) ,J0 I ,( IA(58),JTY), ( IA(S9I ,1831 ,1 JA,6'.'1 ,1P01 ,1 1 A«61) , I IDI . r 1 A t 62 P ,f APIMOIS 
911 A) , I I A(63) ,!0T» *( 141641 , IOY), ( 14(65 I *I7F1 , I IAI41 ] ,ITAP| F40TM0 26 

EQUIVALENCE I 7A(66) , !C AR) , H A($7 ) , JC I X 1 , C ( A (ftfi I , TC I Y \ , ( IAI ft9| , P401M01 T 

1 r C I Z t , I IM70I ,[CF11,( I A (71 > *!XX1 , I f AIT?), |YY) , ( 14(73), Uzl , F4DrMQ18 

21 7 A| 74), T IC), ( I 4(75) ,T O r F ]*[IAIT6 ),|ni],<|a(//,»I 1M ‘■ADlMylc 

3 , ( 1 A ( 7B ) , I GEM) , I 74(791 ,1EPR| ,|flA(AD ,TF), |A4(81 l ,0T! ,(AA(»?),r)G) , Pa9lV[>20 

4 1 AAI 83 I. All), I AA(84),AL2) , t AA ( 0 5 ) ,AL 3 , , ( A A I 56] , n* U , ( A A U 07 ) , P , , =401*02) 

5IAA[13l),UV),(AAl )5S),X|,{AAI163),Y) ♦(AA(17I|,Z),(AA(179 ),xOI» ^AOP ^02? 
6 I AA I 1 66 1 * V D ) , I AA I 193) ,20) , ( AA( 951 I ,b » , f AAI 40 I ./GFM) E40(«023 

7, I AAI42J ,1 NP ) , I A A ( 43 ) t [ PBG ),{AA(44|, lPFN),(AA(45l »C0N'5l ,IAAI46)*lUE40|M024 
8 1 , ( AA(47) ,G1), I AA<40 , ,02 P , <AA(49> ,G3) F4&!Mr!25 

EQUIVALENCE ( I A ( 349 ) ,NT IC ) , ( I A I 348 I , I 60 1 > ♦ I ( A 1 34 Cl • T MlY 1 ■ « I A( ,46 J E4DIM026 

1, (SOZ), I 7 4(31,5) ♦ J9 I ♦ ( 14 (344) 1 J 1 (,] , I ! A I 743 ) , JPNj ) , 1 I 4' 2421 , Jjui > t 4u|My,?/ 

2t I IAI 341) , JSDZ 1 , I TA136C) ,JAPEl* ( rft(?3«) , JMVy , , I 14(778) , JMMY J E4DIM028 

3, ( IAI33?) , JMM7) , ( 14(336 P.JMFl I , ( 74(375) , f T A 5 ) , ( 1 A I 334 ) , ID? I F4D(M029 

4, ( IAI 333) ,1PR| »(AA(332| ,0T,Y),[4A M?1 ) ( A A I 870 ) , PR =$ J =4D[M07n 

5, 114(329), |t>TR> = 401 « 03 l 

CK^ENSION VDE ( 12 ) ,PV( 6,2) ,019(3,3 p ,f>UMM 2 ) ,PT(?4) 9401*032 

EQUIVALENCE ( AA (200 ,V0 C ) , (44(212), PVl, (44(2 ?4] ,OL)Ml , I * A | ? 76 ) « EL I P4f>lMn83 

1, I A A I 26 4 ] ,DIfl I , C4A(2T3l ,PT) F 4 OIKA 34 

COMPUTE STRESSES^At |HE NOOEb OF ONE DIMENSIONAL tLtMtN.o t4U(Mu35 


WRITE OUTPUT TAPE 6, 1 


E4DIM036 


1 FORMAT I ] Ml *2 9X , 70H STRESS ANO MOMENT RESULTANTS AJ THE NODES OF 0E40IMO37 
1NE DIMENSIONAL EL EMENTS/3fPX«70HQUANT (TIES ARE IN THE LOCAL COORD TNE4QJ m C 38 
24TE SYSTEMS AT THE ENDS OF f LEM FNTf/ / 1 8H F L NO. NODF TYP=,9X,3KN-F4DfM()39 

3X . 12X,JM0-Y,12X, 3H0-Z,1 2X ,3HW-X,12X, 7H*-Y,l?XOKM-Z) ^4DlMfl4n 

10 9FW1ND (TAS FADImSm 

IfftRs ° E4DTM042 

T DS“2‘ # I DFG F4DIM643 

^GFM-IGEM E4DIMG44 

MM«1,IT E4OTM045 

102 READ TAPE TTAS,M, (ITT* ITTMtNAV, IMS,! OS *T0S2, |N( I 1 , 1 = 1 , IMS) , (S( l I » E40IMfl46 

1 1 - 1 1 1 DS2 1 * ( PT ( I ) , P ( I ] , I = 1 » I DS ) EADT M04 T 

IF (ITTT-(TTM) l02,lnS,l(J5 F4DIM048 

106 IF INAV-2) 106,102,106 E4DrM049 

106 IF (MM-MI 1 IOC, 1 11 ,1 ICO E4Dt*OSO 

111 J1M=JI+M ECOIMO^l 

rFLT-IA(JIM|/107 E 4 DfMD 57 

IF (IELT-4) 110,11^,1000 E4DIMD53 

C4D (*054 
E4DIMC55 
E4nrv056 
EADIM057 
F4DIM0SB 
E4DI*059 
E4DI*D60 
F4DIMD61 
E4DIM062 
E ADI *063 
EtDP*064 
E4DI M065 
F4DrMCS6 

=411*067 
F40 f w 066 

F4D(moS9 
E4DIM070 
F4D1 MO 7 1 
E401M072 
F 4 D 1 MO 7 3 
E401M074 
E401M075 
E4D1mo76 
E4DIM077 
F4DIM078 
F4DIM079 
E4DIM080 
F4t>TM0ai 
F4DTMU82 
E4DIMQ83 
E4OTMO04 
£401^085 
F4DIM086 
E4DIM087 
E4DlM88a 
F4DT M089 
F4DT«09O 
E4DT*091 
E4DIM092 
C4DrMQ93 
E4DIMD94 
F4DIM095 
E4DIMD96 
E4DPM097 
E4DPM09B 
E4D ( M099 
F4D(M10n 
F4DIMJ01 

F4DIM102 
FADlvlO? 
F4DIM114 
F4DIM105 

E4DIM106 
F4DIM107 
F4DPM1D8 
P4DIV109 
EADIMHO 
F4D1M1 1 1 
F4DIM112 
F4D|*113 


11(1 DO 20f1 1 = 1 , I MS 
J = N ( I P 
I XXJ= IXX+J 
I YYJ “ 1 Y Y+J 
IZ2J = IZZ+ J 
X( I )=AA( | XXJ) 

Yt I)=AA( I Y YJ ) 

Z( I >-AA( ( Z2 J ) * 2GEM 
IF (1-11 200,200,120 
120 XD( J-l )=XI T l-X(l > 

YOtl-1 »-Y( ri-Y(l ) 

zop i-i)=zi n-zd) 

200 CONTINUE 
CALL CODI 
DO 250 1=20 0,235 
250 M I [ ) “0, 

DO 300 1=1,3 
DO 300 J=1 ,3 
fl I PT = DI R( 1 ,Jp 
D7RI r,J)=D(R(J,1 ] 

DIRl J,I )=D(RT 
SCO CONTINUE 
CALL STRA 
I DEFMs I DfF- TDEG 
L V = 0 

no S7o im.rnEG 

7 OFF ( = J DF FM+I 
DO 360 J= 1 . IMS 
IDEFU=IDEFH>IDEG»N(J) 

LV = lV-» 1 

VDE ( L V I =A A ( (D£fJI 
360 CONTINUE 
370 CONTINUE 

CALL TftAN ( VDF , 7 ) 

11= — I DS 

DO 415 1=1, IDS 
11=1 l+IDS 
00 410 J= 1 , (DS 
IJ=I l+J 

DUMC I )«DUM( r>+5< I J ) *V0£ I J 1 

410 continue 

415 CONTINUE 

CALL TRAN (P.OI 
L=0 

DO 418 1=1,6 
DO 417 J= 1 , 2 
L = L+1 

PV! I , J ) =DLfM ( L 1 -P(L 1 
417 CONTINUE 
41 R CONTTNUf 

IF ( 1 EL 7-2 ) 500 ,4 2fl ,430 
420 PV 16,1) =PV( 3, 1 ) 

PVI6 ,2) =PV( 3,2 > 

PVl 3,1) =0, 

PVI3,2)=0. 

GO TO 500 

43D TF I IELT-3) 500,440,500 
440 00 450 J= 1 , 2 
DO 450 1=1,3 
1M=6-I 
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Table VII-60 (conld) 


1H4 s|M-4 

PV< lM,.ldPVnM4,J> 

PVf 1 M4 , J | =0* 

450 CONTINUE 

500 HK1TH OUTPUT TAPP 6,3 
3 FORMAT I1K I 

00 510 1*1 ,6 
5LG PVl I , l l*-PVtl ,11 

WRITE OUTPUT TAPE 6,2-r IM«N| 11 , I FI, It {PVlJt 1 I * J=l. h) , 1 = 1 ,7 1 
2 FORMAT 1 1 X , |4,2I*,3X,6E15,5I 
1000 CONTINUE 
1010 RETURN 
1100 IERftd 

K*M 

1 A l ?01 I =MH 
GO TO 1010 
END 


FADIMllA 
FAD] HI 1 5 
E ADI Ml 16 
6*01*1 1 7 

eaoimib 

FAIT I HI 19 
E40I Ml 70 
F AH I Ml ?1 
E *0 1 H 122 
EA01M123 
PA0IH12A 
E AO I MIPS 
EAUIHI ?6 
FADE M1P7 
FAO|Ml?fl 
E4PJM129 
E *0 I Ml 30 


Table VU-61. Source program listing of 
subroutine DINA (Link 4) 


FAmwono 

FAIJIN001 
F4i)iNDt>2 
F4D1N003 
r AD I NOO A 
FAOiNnas 
EAfi I N006 


* LABEL 

CE4UIN 

SUBROUTINE DINA 

C OBTAINS LOCAL COrlKOlNATF AXES AT A HOOF MM SHELLS 

C TO GENERATE BAS VECIMR, DIN MATRIX AMD ANGLE 

DIMENSION JAfl ) ,AA( 1 1 , SI L >,N< B I *021 < 21 ) , D33 I 3 , 3 ) , E22 13,31 

1, PI 24 I tUV( 2*I , XUD.Ylfil ,21 H) .X0I7) ,Y()(7) t ZD(7).Gl<ll 

COMMON LA i AA , „ 

EQUIVALENCE M A t AA I , I D?1 .033) . I02K 10 ),E22UU5?HI9I .El ,CD21<20 > , f. 1 FAD 1 NOD l 
EQUIVALENCE [Ull),IN>,llA[2)d»N>,dA(3)dT>dtA(*>,TPIdlA[5], EADINOOA 

11 PRS I . (lAf M . I TYPE ),<1A(7).1MAT),<IAIH1, IDEG) , I I A I 9 1 . 1 NX I . f I A ( 1 0 1 .E40IN009 

2T>U.( I A(ll ), 181 ,( IA( 121 .IMMXl, I IA113J . IMMY1 , IIAUA) , IMMZJ , I T6U3) .EADINOIO 

3lMFJ|,I]A!lfO.IARM.MA<17I.Mni).IIAI25I.M|.MA(26)»lTYlT(!AI271 , E40IIM01 1 
AISTRI ,<|A(2B).1ELTJ ,dAl29J.ITEM)d lAOOl.ITlCl.dAian. l«eT( , F 40 I NOT 7 

5 (I A l 32 I , t$UM> . II A I 331 r 1NU> . I I A I 34 I , IMS ) . M A I 36) ♦ IUS ) , I I A I 37 I . FADIN01 3 

6IOROI , ( 1 A ( 30 ) , 1 OR 01 ) ♦ I I A ( 39 I , AC EL 1 , I I A ( 50 } , ,1 L ) t ( I A I 51 I . .1? 1 » EADINOl* 

7 d A (52 1 ,.m d IA(53) , J4) , II AI54] , J5)d I A I 55) . J6) d 1A< 5M . J7>d I A I 5 7E4D 1 NO I 5 
HI, JRI , dAI58).JTYI ,(!A(59] . IBfU. I IAI6D).iB0>, (TA<61 )d 101, IIA(6?I .FADIN016 
SI IA I , ( |A(63) , IDT I ♦( IAI6A) , I0Y1 ,(IA(65) , ITFI . dAI A1 1 , ITAP1 FAD INCH 7 

EQUIVALENCE (1A<66),1CARI , (IA(67), IClXld UIA8I . ICI Y), I I AI69I , FA(T|NO10 
1 1C IZ1 , I I A (70 I , ICFI ) , I I A I 71 1 • 1 XX ) , d A I 7?}, IVY) d IAI73I . 122), FAD I NO IS 

PdA(7A| ,1 ICldl AI75), IDEF Id lAf 7M , 1ST) , 1 IAI77I, I IS) H.DIN020 

3,1 lAtVfl) , IGEM) T (IAI 7S) , I ERR ) , I AA { RO I , I F 1 . t AA I 8 1 ) . DT ) , ( A A ( R2 1 , DC ) ♦ F4IHNU21 
At AAIR3J ,AL1 ), IAA|«A),AL2I d A A ( R5 > , Al. 3 1 , t A* <84 1,021 },IAA(in71 ,P1 , F4l>|N02? 
51 A A I 131 ) ,UV 1 ♦ I AA I 155 ) , X J , ( AA II 63 1 ,V ) , ( AA ( 1 711 . Z I . t A A I ITS) ,XD) , E*D TND7 3 

61 AAI l &6) ,YD), I A A t 193 I . 2111 * < AA(351 I , S I , ( AA< AO) ,ZGEM) p A D | N024 

7 , < AA ( A2) , 1NP ) , ( AA (A31 , IPBG ) , I A A I AA ) , 1 PEN » , ( AA| 45! iCnNSl , ( A A I *6 ) • 1 *0 I N025 

8) , <AA<47] T Cil ), IA6IA8) f G2| , (AA(A9 1,r.3) F4DIM026 

EQUIVALENCE < I A { 3 AS > , NT JC ) » t I A < 3*8 I »tSQT) ,( 1AI3A7I, I SMY J d I A I 34 A 1 FACT I NO? 7 

1 , 1 SDZ I , I I A I 345 ) , JS ) i ( I A I 3*4 ) « J 1 0 ) ♦ d A I 3*3 1 , J P R S ) , d A l 347 ) , JS()Y] E 40 JN02R 

2. (IAI 34 L) ,JSr»Z) . 1 1 A <3*0 I, JARF I, I T A I 3391 , JMMX) , 1 1 A t 330] ,3MMY 1 
3d I M 337 ) , JMMZ 1 , HA 13361 , JMp I ) d I A < 3 35 J d I AS 1 d 1 At 33* ) , I [>7. 1 
4, ( IA< 33 3) , I PR > , I 312 I ,DGY ) d A A t 331 I ♦ DGZ 1 , I AA t 330 1 , PRF S 1 
5,1 I A l 379 1 . 1 P I R 1 

DIMENSION BIRI 31 .SIR I 3 I, DIN (3, 31 .SRC 6) , XNt 3 ) » XF ( 3 1 -DNI6) ,QM6I, 
1RESIM,REIH6),8AS(3] dCLAS(A) .NHANlLOl ,NU| 3) .NFS! 3 I 
EQUIVALENCE t AA 1200 J , 1 ONE 1 ,( AA I 7U 1) . I CN 1 , t AA ( ?0 2 ) , LM 1 , ( AA ( 203 1 , ASTE ADI NO? 5 
1 ) , I AA I 204 1,1 NBON ) , [AM 205 ) , ARE I d AA I ?06 ) d CLA ) ,1 AA [ 707 ) d *F L J , f-40 I N036 

7(AA(?061, IM|, (AAI2D9), 1C) , ( AAI 210 ) , ICON) , [AA( 711 1 .ANGLE) , I A A ( 71 2 1 , F*0lNO3 i 
3 I CAS 1 dAA( 313) ,1EI d AA( 214 I I , ( AA( 2! 51 ,HB> F4L> ! NH38 

4, I AA ( 2 1 6 I ,1 ROT | d AA ( ? W ) ♦ HS T I 

EQUIVALENCE ( AA< 220) , B 1R I d A A ( 72 3 1 , S I R I d A A I 3261 .DIN 1 , ( A A ( 235) .SR 1 FADINOAO 
1 d AAI 24) ) ,XN ) , I AAI 244 J t XF ) , l A A { 74 7 I , ON ) . ( AA 1 2 53 1 , OF ) , I AA [ 75 9 ) .RES ) E40IN041 
2d AA(265),RED] «f AAI 271 1 .BAS) d AA[?74) , I C LAS ) d A A I 278 ) , NR AN ) 

3d AA( 292), NUI d AAI2V5J.N6S) 

01 MENS ION NEL 120,171 » MAC (4,4,201 ,1 WG ( 90 ) , 111) I 6, 6 1 , A { 90, 7 ) . R 1 R . R ) , 

1C (8,2) ,FFll),NSETdOO),MSEn 100) ,W(3, 31 
EQUIVALENCE I A A I 1*000 I , FF ) d N1JC1 ) , JP 1) d NH( 2 } . JM1 ) . I Mil I 3 I , JS 1 ) 

EQUIVALENCE I FF [ 1 ) , NEL I . (FF [341 1 ,MAC 1 , [ FF ( 661 ) , I MG 1 , I Ef I 75 1) , IW ) 
l(FF(7fl'f) ,AI , (FPI1417) ,B),I FFI14H11 ,C1 dFF(1497) ,NSFT) d FFI 1597 1, 

2MSET ) d FF ( 1 1 »W) 

C SEE IF DIN AND ANCLE ARF TU BE OBTAINED VIA SUftRDUT 1 MF AGFL 

IE (IPJR-II 3,3d 

C CALL SUBROUTINE AGEL FflR DIN AND ANCl.F 

4 CALL AGEL 
GO TO 5 

C IS IT SHELL OF RFVUUJTiriN 

3 IF IICAS-6) 20,30,21 

C SHELL OF REVOLUTION 

30 CALL KfcVU 

GO TO 6 

C GENERAL SHELL- DETERMINE PIN AND ANGLE BY BEST FIT QUADRATIC 

21 CALL QUAD 

5 IF (INP-2) 7,6,6 

6 WRITE OUTPUT TAPE 6, 61 , ANGLE d I DlN( I , J ) , 1=1 *31 ♦ J=1 ,3) 

6) FURMATtPDX , 5HANGLE . 2 * , F 1 0 . 3/ rj „ TllA 

t ?0X,3HDIN,5X, 3HK51 ,2X,3F7.4,5X. 3HETA. 2X,3F7,4. 6XdHZTTAdX, 3F7.A) F4HIN065 

7 RETURN FAD1N066 

END F4l) I NH67 


EAUIN039 
F4D1N030 
F4niNn3i 
F4ITIN032 
F 40 I Nfl3 3 
F4D1N034 


E40IW042 
FAHlNOAi 
F4DIN044 
T- 41) I N04 5 
F4f)|N046 
F4DJN047 
EADINOAB 
(j4QlN04‘) 
F4DIN05U 
EADIN051 
F401ND32 
FAD I NOB 1 
E<.niM054 
F All 1 N055 
F 41) I NO 56 
F4DJN057 
E4DIN05M 
F4MIND99 
F4DIN060 
F4|)lNnfi| 
EAOIh'06? 
E4DIN063 
E4D l NO 64 
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Table VII-62, Source program listing of subroutine EPAN (Link 4) 


* LABEL 

C£ 4fcPN F4EPNDOO 

Subroutine epan eaepnohi 

C INCREASES NODF SET BEYOND 9 |N SHELLS AT A WOOF F4EPN002 

C 10 INCREASE NODE SET INSET) POPULATION NH BEYOND 9 FOR QUAD F4EPN093 

01 MENS I ON TATI >,AA(1 ),S(1 l.NTd) ,l)?l 121 1 , D33 1 3 , 3 > , E22 I 3 , 3 1 E^ePNMK 

1 ,P(24),UV(24] ,XI8I,Y(B> ,ZI HI t XOI7| ,YPI?| T 2 D f 7 1 ,01 m F AEPN005 

COMMON I A, AA F<-EPN006 

EQUIVALENCE! lA t AA ), | 02 l, 03 3 1 . < [>2 1 ( TO I , E ??. ) , I 0?1 ! 1 9 ) « E > 1 1 O? L < 20 ) ,G)F4EPNn07 
EQUIVALENCE UAin,lN>,<IAI21,l8N),llAm,TTJ t ([A{4),rP|,<lA!5l, FAERNDDR 
L1PR. S),(lA(6>, IT YPE > , ( IA( 7J , I MA T ) , I I A ( ft } , | DEG) , I IA(9>, INK) . I l A I 10 I . E 4FPND09 
2IH),| IAI 111 , IK > , I J A{ I? 1 1 IMMX> , I I A! 1 3 ] , I MM Y T , (1 A M A I , ] MMM , ( f A ( 1 5 ) , F4EPN01 0 
JIMP I] * MAI 16 1 , I ARE) , II A( 17 ) ,M(1 |) , II AT25 I ,Ml , t I At ?h) , ITY ) , I I A (27 ) » E4FPN0 [ | 
AlSTftl ,( JA(2fl), r ELT ) , I UI291 , ITEM I ,( IAT30), I TIC), (IA| 31 1 , IMET), F4FPN012 
5(1*132), ISimi.!lAT33),lNO|,( I A! 34) , IMS I * l TAT 361 , IDS) , I I AT 57) , F4EPNQ13 
A TORO I ,( 1AT3B), [ORDl I ,1 I AT 39), ACEL ) , II A I 50 ) , J i > , I I A I 5 II , J7 > , F4EPN014 

71 1AI52I ,J3). ( IAI53KJ41 , ( IA<54),J5l, I I AT 5*5) ,J6I, ( JA(5M,J7| , ( I A ( 57E4F PNQ I 5 
8 I *J8 > , I IA1 581 » JT Y I i I I A C 59 ) * 1 0B I , (1 A1 60 ) , I BIT ) , M A I 61 | , 7 f O I , ( I A I 6,2 ) »E4£PN01 b 


9J I A I , (I A( 63 ) , IDT) , I I AT 64 I , |[)Y) , (I A (6b I , I TE) , ( Id l A 1 J , ] TAP) 

EQUIVALENCE I 1 A I 6b I , I CAR I , < I AT 67 ) , 1 C I X > , I I A I 68 ) , ] C I Y I , t I A t 49 I , 

HCIZI.I 1*170), ICFI I, I IAI 71 J , I XX), ( I A « 72), JYY| , { [AT73), IZZ), 

Z( I A | 74 | , II C > , ( 1 AT 751 t IDEE) t (I AT7M , 1ST) , I 1*1 77) , ] I S) 
3,llAI78>,lGEM>,(|AI79) f I ERR > . |A A I 80 I , TE ) , IAMBI I ,DT>, |AA(fl2J t Df,) 

4TAAI03I ,*Ll) r(AA<84),AL2l ,( AA(B5>,AL3>,(AA(H6| ,021) , I AAT107) ,P>, 

MAAUM ) *UV), IAAI 155>,XJ, IAA(163) ,Y> , f AA( 171 ) ,Z) ,TAA(1?9) ,XD) , 

6TAAUftbl tY0>,TAA(193),ZD| , (AA(351| ,S| ,{AA| 4Q),2GFM) 

7 t IAAI 42 ) , INP ) , ( AAI 43) , IPBC) , { AA ( 44 ) , T PEN ) , I AA ( 45 ) , CONS ) , | AA | 4 h ) , I (IE4EHN075 
8) r(AA(4H ,G1 I ,< AA<46 )tG 2) , (AAI49),fi3| E4FPND26 

EQUIVALENCE I 1 A ( 349 J ,NT 1C I , I 1 A I 348 ) , I SDT ) , I I A I 347 ) , T S f)Y > , I I A f 34fi ) F4FPN027 
1 , 1S0Z) , MAT 345) , J9 ) « T I A I 344) , J101 ,111(3431 , JPRS) , ( I A I 347) t JSOY) EAEPN028 

2 » ( I A ( 341 1 , JSDZ ) » 1 I A ( 340 ] , JARE), ( I A I 339 ) , JMMX ), ( I AT 338) . UHMVI 
3»t IA [ 337 1 tJNNZ)* I 1 A ( 33b ) » JMF I ) , ( I A ( 335 I , I TA S ) , < l A ( 334 I , I OZ I 

I A ( 33 3 ) , IPH | p !AA| 332 ),DCY ) , T AA( 331 P,OGZ), IAAI 330) ,PRES) 

5,( I A T 329 ) f I H I R ) 

DIMENSION BIR(3)»SIRT3),UINT3,3I , SRI 61 ,XNI 3) ,XFT3) ,0N| hi ,0F(6I , 

IRE SI bl ,REDT b) ,BAS |3 ) , [CLAS 14) ,NBAN1 IQ ) ,NU| 3) ,NF$I 3) , 

toil [VALE MCE I A A (200), I ONE), ( A A ( 201 I , I CN ) , ( A A I 202 I , LM ) ► I AA ( 203 I ,ASTE<,EPN035 
1 ) »TAAT204) ,]NBDNI, IAAI2DS) , ARE ) , ( AA ( 206 I , I CL A ) , T AA ( 207 I , I NFL) , E4EPN036 
21 AA I 208 ) , T*) , TAAf 2D9P , TC I , T AA | 2 10 ) , ICON) , IAAI 71 1 ) , ANGIE 1 , f AAT212 ) , E4EPN01 7 

3 TC A S ) , I AA 1213) ,IEJ ■ ( 11(3141 , NB ] * ( AA { 2 L b I ,MR) F4F PN038 

4, I AAT216), IRQTI , ( AAI217),eST) E4EPN039 

EQUI VALENCE I A A I 2 1 0 ) , 5 I P ) , ( A A ( 22 3 I , S I R ) , I A M 22 1> ) , 0 I N 1 , I A A I ? 3b ) ,SR) F4EPN040 
1 , I AAI 241 >,XN| , ( AAT244I , XF) , I AA< 247) ,0N } , ( A A T 2 53 > , QF ) , I A A ( 259 ) , RE S I F4EPNI14 1 

E4EPN042 


E4FPND17 
F4EPN01 8 
F4FPN019 
E4EPN020 
E4EfN02L 
F4EPN072 
F4EPN023 
E4EPN024 


F4EPN029 

E4EPN03Q 

F4EPN031 

F^tPNOBZ 

E4EPNG33 

F4FPN034 


2 i I AA ( 265 > , R£D > , ( AA [ 27 1) , flAS I , 1 AA ( 274 ) , ICLAS ) , I AAI27BI ,A 
3, I AAI 292 > ■* NTH , T AA ( 295 I ,NES> 

DIMENSION NE LI ♦ 1 T J « MAC 14,4,20) , ] NG ( 90 I , l)D I 6, h ) , AT 90 » 7 ) , 6 1 8 , A ) » 
1CI8,2)-,EF( l)tNSFT(LOO),MSET(iOO),WT3, 31 
EQUIVALENCE (AAI 14000 I ,FF) ,(NU( l),JPl I , T NUT 2 ) , JN1 I , ( NO t 3 > , J5 1 I 
EQUIVALENCE T FF ( 1 ) »NEL I , TFFI 341), MAC) , (FF(661 ), JWGI , (FF (751 I ,001, 
lTFFl TflT I ,A I ttFP( 1417), B) , IFFT 14R1),C), |FF| 1497 I ,NSOT ) , T FFT 1597) T 
2MSETI ,(FFT1697),H) 

DIMENSION MFLE (25 ) ,Nf LE 1200) 

EQUIVALENCE ( A , MELE > , ( A T 26 I , NELE ) 

ORDER THE NOOES IN NS6T AS INCREASING 
N8 = NB 

00 LO I « ) , NR 
M1N=NSETT I ) 

HI) 9 J- I ,NB 
IF IMIN-NSETIJI) 9,9,H 
NSETT] ) = NSeiU) 

NSET(J)=NIN 
MIN^NSETT l ) 

CONTINUE 
CONI 1NUE 

LISI FLENENTS MEETING AT each node OF nset IN nele 

KK - | CN 

MIN^O 


F4FHN043 
E4FPN044 
F4FPN045 
E4EPN046 
F4EPN047 
E4EPND4B 
F 4E PN049 
E4EPNO50 
E4EPN051 
F4EPN052 
F4EPN053 
F4FPN0S4 
F4EPN055 
F4E PN056 
F4EPN057 
E4EPN05R 
F4EPN059 
F4EPNO60 
E4FPNQM 
F4EPN062 
E4EPN063 
R4f PN0b4 
E4EPN0A5 


00 20 1-1 ,N8 
K = NSETI I I— KK 
IF (K I 19,20,19 
19 K-= K- 1 

IF IKI 191,24,21 
191 K=—K 

00 22 Jsl i K 
BACKSPACE ITAS 
2 2 CONTINUE 

Gil 111 24 

21 00 23 J=i,K 

READ TAPE HAS 

23 CONTINUE 

24 READ TAPE I T AS , KK , NN , I MfLF T J ) , J= 1 , NN I 
IF INN) 20 » 20,2 f. 

26 IF |M1N) 252,251,262 

251 DO 253 J=1,NN 

253 NELETJ) = MELE I.J) 

NNN-NN 

HlN=l 
GO TO 20 

252 DO 254 J-l ,NH 
DO 755 L»1,NWN 

IF INELE IL I-HELF I J M 255,254,255 
255 CONTINUE 
NNN*NNN+l 
NELE T NNN ) *HELf ( J ) 

254 CONTINUE 
70 CIINT] NOE 

C NEIGHBORING ELM 1 5 ARE ON NELE, THE COUNT IS NNN. REPOSITION ITAS 

K= ICN-KK. 

IF (K) 7 9 L ,30,31 
29 1 K=-K 

00 47 J»1 , K 
BACKSPACE ITAS 

42 CONTINUE 
GO TO 30 

31 DO 43 J = 1 ,K 
READ TAPE ITAS 

43 CONTINUE 

C UPDATE N6 AND NSH T 
30 00 3 l-l , NNN 

KK = NELE< 1 I 
J 1 1 = J 1 +KK 
NN= 1 A < J l I I / 1 on 
K» I A I J 1 T I - 1004NN 
IE TIMFT~K| 3,32,3 

32 GOTO 13,3,3,3,3,3, 3,3, 3, 3, 33, 34, 33 , 34 , 3 , 3,3, 3), NN 

33 IRS=3 

GO TO 35 

34 I MS -4 

35 Jl[rJ3+KK 

00 36 J =J 1 , IMS 
Ji [=J1 1 + 1 r 
K= i A ( .1 1 I I 

C SEE IF NODE K IS ALREADY In nsFT 

DO 37 L-l ,NB 
TF (NSETIL)-K) 37,36,37 
3V CONTINUE 

C THIS IS A NEW NODE, UPDATE NH AND NSET 

NR=N0+1 
NSET(N(I)=K 

36 CONTINUE 

3 CONTINUE 

C NOW GO HOME 

RETURN 
END 


F4EPN066 
E4EPND47 
E4EPN06B 
E4FPND69 
E4EPN07Q 
E4FPNQ71 
E4EPN07? 
F4EPN073 
F4FPN074 
E4EPN075 
E46PN07 b 
E4FPN077 
F4FPND7B 
F4FPN079 
E4EPND80 
E4EPN0A1 
E4EPN082 
E4EPN0B3 
F4EPN0R4 
64EPN085 
E4EPN0R6 
F4EPN087 
E4EPN088 
E4£ PNQ89 
F4EPN09Q 
F4FPND91 
F4EPN092 
E46PN093 
E4EPNQ94 
E4FPN095 
F4E PN09S 
F4FPN097 
F4FPND98 
E4EPN099 
E4EPNI0Q 
E4FPN101 
E4EPN102 
E4EPN1D3 
E4EPN1H4 
E4EPN105 
F4FPN1D6 
E4EPN107 
E4EPN1D8 
64EPN109 
E4EPN110 
E4EPN1U 
F4EPNH2 
E4FPN113 
F4FPNI 1 4 
F4EPNL15 
F46PNllb 
E4EPNU7 
E4EPN1 l B 
E4EPN1 19 
E4EPN120 
F4EPN121 
F4EPN172 
F4FPN123 
E4EPN124 
EAEPN125 
F4EPN17* 
E“EPN127 
E4FPN120 
EAEPN129 
E4EPN130 
E4EPN131 
E4EPN13Z 
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Table VII-63. Source program listing of 
subroutine FINDQ (Link 4) 


* label 

CE4HV0 

SUBROUTINE F 1 NDO ( K , 0 ) 

C OBTAINS DEFLECTIONS OF A NODI: IN OVERALL COORDINATES 

C TO GENERATE THE DEFLECTIONS (IF NDDE K ON VECTOR 0 

01 HENS I UN 1A 1 1 > ,AA( 1 I , SU ) ,N< B P .D71 1 ?1 ) »D33( 3, 3) , E22 I 3,3) 
l,P(24>,UV(24J ,Xtnj ,YI8>,ZI8 l,X0(7),YD(?J ,21117 I, Cl III 
COMMON I A, t A 


Table VI1-64. Source program listing of 
subroutine FINDX (Link 4) 


F4Fwoonn 

F4FNQ001 

E4FNQ0D2 

E4FNQ0O3 

E4FN0004 

F4FNQ005 

FAENUnOb 


EQUIVALENCE I IA.AA), (1)21,0331 .(1)21(10) .E22 I , (02 L ( 1 9 > , £ ) ♦ ( D21I 20 I ,f, IF4FN0007 
EQUIVALENCE UA|L>,lN),nAI2l.iaN|,||A<3J,IT).UAI4],lP),llA(S), F4FMQ00B 
1 IPRS ).( 1A(6 ),ITYPE)i I I A | 7 ) , IMAI )«( I A ( 8 ) , I PEG) , ( I A ( 9 J » (NX ) , ( I A 1 10 ) . F4FN0009 
2JH),(UI 11 ).IBI ,<141121 r I MMX I , MAI 13KIMKYI ,( I 41 LAI , I MHZ I .< I AMS) ,E4FN0010 
3IMfl),IIA((6),I ARE l,(1All?ltN[l ) |,tlAI25l,M),| I A 1 26 ) , J TY > , t IAI27I.F4FN0011 

AISTRI »<I AI2AI ilFLTl .( 1M29) , ITEM) . <1 A13(I) » IT1CI . UA< 31) . IMET ) „ F4FN0012 

5(1 A I 32) , I SUM). ( [ A 03 >. INOI . ( IA| 34 I . 1 MS ) . HAf 36), IDS) , ( IA I 37 ) . F4FN001 3 

6I0RDI , UAI3BI. IORDI ), I I A 09) > ACEL ) . (I A I SO ) , J1 ) , M A( 51 ) , J2 ) , F4FN00T4 

71 ( A ( 52 ) .J3), ( I A ( 5 3 ) , J 4 } , ( 1A(54)..15), ( 1 A l 5 5 ) , J 6 I , < I A { 5 6 I »JY), ( IA ( 57 F4PNQ01 5 
R] ,JR),( IA15BI ,JTY) .( ]A(59) T 1 RB ) ,|UI 60 I ,IRQ) , ( It(61>, IID)t1 I A ( 62 ) , E4FN001 6 
9IIA) , UAffe3) ,IDT 1 . ( 1A(64) * 1DVI , n AI65J , 1 IE) , I I A(41 1 , ITAP ) E4FNU0 1 7 

EQUIVALENCE I I A ( 66 > , I CAR 1 , ( I A( t>7 ) , I C I X I , ( 1 A ( 6ft ] , ] C I Y J , ( T A ( 69 ) , F4FNO018 

1 1CIZ) , I I A( 70). TCP I ). I I 61 71 ) .IXX) f I I A 1 7? > , ] YY>, ( IA(73),1ZZ I . E4FNQ0J9 

7 ( IA|/4|,11CI,I1AI75I, I DEF ), H A ( 76 ) , I ST I , ( I A ( 77 ) , I l S I E4FNQ020 

3, I I A ( 78) ,] GEM) , 1 1 A f 79 ) , I ERR P • ( AA ( 80 I , TE ) , ( AA I ftl J . DT 1 , ( AA ( 82 P , DO » E4FNQ021 
M AA(fl3) ,All 1 ,( AA184J ,AL2),( AA(85) ,AL3P . ( AAlflft] ,D21 I , I AA ( I 07) ,P> , E4FNQ022 
51AAU31) .UV ) , < AA(155) ,X), ( AAI 1A3P ,YI ,( tAUTl) .Z) , (AA ( 1 791 ,XOl , F4FNQ023 
6(AAaB6),YD),(AAU93),Z0) ,(AA(35l I.S), JAAI40I ,2r,EMl P4FN0024 

7, | AA(42) , INP),(AA(43). IPRfi) t IAA(44>, H'tN ) . ( A A < 45 ) , CONS ) , I AAI 4ft) . IUC4FN00E6 
81, | A A 147 > ,G1) T ( AA(40) , G2 ) . < Aft(4*t> ,fi3> F4FNQ026 

E DU 1 VALENCE t I A I 349) .NTIC ) , ( I A ( 348 ) , I SOT ) ♦ I I A ( 34? I . I SOY ) . I I A I 34ft) F4FNG077 

1 , I Sf>Z ] | ( I A ( 345 I i J9 ) » ( I A I 344 ) T Jl 0 I , ( 1 A I 343 ) * JPHS I . ( I A ( 347 ) , JSOY) F4FNQ02B 

2 , ( IA 1341 I , .1507 ) , ( 1 A( 34(J } , J ARF ) , M A l 3 39 I , JMMX ) , I 1 A t 33B I . JMM Y i E4FNG029 

3, fIA(337l . JMMZ 1,(141 336),. IMF I) , < 1 A I 335 ) , 1 T AS ) ♦ f |A(334), JOZ ) F4FNQ030 

4, ( 1AI333I ,IPA1 .(AAC332) ,[)GY| ,(AAI 331 I.UGZ I , I AAI 330),PRES> F4FN0031 

5,1 I A ( 329 I , I P I R I F4FND037 

DIMENSION 8 ) R O ) ,$IH(3)*[)|N{3,3) , SR ( 6) , XN (31 • X F ( 3 I , ON (6I.()F(6>. F4FNQ033 

1RES(6J ,REOI6).BASO), ILLASl 4 I ,NBANI ID) , NtJ ( 3 I , NES < 3 J F4FN0034 

6001 VALENCE t AA ( 7D0 ) , I ONE ).(AA(2Qll.t CN ) » [ AA ( 70 2 ) , LM I > I AA I 203 ) , ASTE4FN0035 
1 ) , ( AAI2Q4) , ]WBGN) , I A A (205 ) , ARF) , I AM 2061 , ICLA ) , I AA(207> , IMFL I . F4FN0036 

21 AA I20P i . IN I . I A A { 209 I , 1 C ) , ( A A ( 7 1 0 ) , I CUN) , I AA [ 2 L 1 I .ANGLE I .( AA( 21 2 ) ■ F4FN0037 

3 I CAS 1 , I AA I 2 I 3 I , IE I ,<AA(214),Nfl) , ( AA I ? 1 5 I » *8 I F4FNQ038 

4,( AAI216J , iHIir ), (AA(217) ,BST) F4FNQ03S 

EQUIVALENCE I AAt?20),BlRI . I AA| 223), SIR), I AAI7PA1 ,UlN), I A A I 2 35 ) , SR ) E4 FN0040 

1 , (AA I 241 ) ,XNJ , (AA I 244] ,XF) , ( AA ( 247 i ,0N] , (AAI 7S3) ,0F) , I AA1259) ,RFS I F4FNGD4I 

2, (AAI265I ,REOI . (AAI77I) .BAS ), IAAI274) . JCL AS I , ( AA ( 778 I , N8 AN ) F4FNG042 

3, ( AA 1292 I ,Ntl| • I AAI 295) ,NF5 I F4FNQ043 

DIMENSION NEL(20.17),MAC[4.4,2O| . I WG I 90 I , DO I 6, 6 } , A I 90. 7 ) , A ( R , 8 ) , F4FN0044 

lC(ft.2) ,FFU I .NSFTI 100) ,MSFT( 100),WI 3,31 E4FN0045 

EQUIVALENCE f AA 11 4000 1 , FF ) , ( N1J ( 1 ] , JP l ) . I hill [ 2 ) ,.)M1 I , ( Nil ( 3 P . J Si ) F4FMQ046 

EQUIVALENCE [FFll).NFL).lFF(34l),MACI,lFn6ftl).lN(;)i(FF|7511,DDP, E4FN0047 
I | FF I 787 I ,A), IFFI 14171 ,B), (FFI 1 48 l ) , C } , ( FF () 497 ) , NSF 7 I , ( FF( 1597), E4FN004R 
7MStT),(FF( 1697), N) E4FNQQ49 

DIMENSION QI6] F4FN0050 

lDEFl=inFF-HX-l I * 1 DEG F4FND1J51 

00 10 1 = 1 . H>£G F4FN0052 

IDEFI » IDEF1+1 F4FNU053 

Q( I ) = AA| iriCFD £ 4FNQ054 

10 CONTINUE E4fMQ055 

RETURN F 4pN00 ,6 


* LABEL 
CE4FNX 

SUBROUTINE FIIMOXIK.CI) 

C ORlAiNS OVERALL CODRDINATI-S UF A NOI>£ 

C TO GENERATE THE COORDINATES OF NODE fc DN VECTOR 0 

DIMENSION I A IJ. I ,AA( 1) ,S(1 I ,N|fl) , D?) I 71 I ,0331 3, 3) , 622 I 3 , 3 ) 
l ,P( 24 J ,UV(24),x ih ),YI B I . Z (B) , XD( 7) ,YDI7 I ,Znt7),GL(l ) 
COMMON I A , A A 


END 


F4FMIJ057 


E4FNXOOO 
E4FNXn01 
E4FNX002 
E4FNXD03 

F4FNX004 

F4FNXOOS 

LIJMMUN 14, Oft E4FNX006 

EQUIVALENCE [ |A,AA), ID21 .033 >. 1021 1 10 1 . E22 P , M)? 1 1 1 9 ) , E I , ( 07 L ( 70 ) ,G)F4FNX007 
FIJUI VALENCE (IA(1|,IN1,(|A(2),IBN),(IAI3P,IT|,UA(4|,IPI.MA(5), 64FNXOnfl 
1 1HHS) , ( I A (6 ] , I TYPE P ♦ ( 1A( 7) , l MATI , ( 1AI 8 P , IOFG) , II A ( 9 ) , I NX I , ( I A ( 1 0 ) ,E 4FNX009 
2 I K ) , ( I A 1 1 ! I , IS). ( IAI12) , IMMXJ.MAI 1 3 I . 1 NMY P , I I A 1 14 ) , I MMZ > , I I A 1 1 5 I , F*FNX01 0 
31MFJ ) * ( I A(1A ) . I ARE ) , ( I A ( 1 7 ) , N I 1 M t < I A ( J , M ) , M A ( 26 ) , I TY I , ( 1 A < 27 ) , F 4FNX01 L 

41STR), [ IA(2BI , inn , I IAI29I . ITEM) , (IAI70I , mo, I I A(31 t .TVET) , F4FMX012 

51 1A I 32 I , I SUM I , I IA ( 33 I , IND ) , II A( 34) , I MS ) , ( 1 A( 36) , IDS I , ( I A | 37 ) i F4FNX013 

6KJRD), II A 138 1 ,I0RIU I , ( I A ( 39 ) , Af.E L ) , I ! A ( 50 1 , J 1 I , ( 7 A I 61 I , J? ) . E4FNX014 

71 1AI52I ,J31 , ( |A I 53 ) , J4 ) , I 1AI54),J5I »( I A ( 55 ) , J6 ) « I I A I b 6) , >1 7 I , ( I A( 57E4FNX01 5 
fl ) , J8 I , I IA< 58 I , JTY ) , I I A ( 59 I , I RB J , ( I Al 6U ) , I 80 I i < I A ( 61 ) , I I O ) , I I A 1 6? I , E4F NXOl 6 
9IIA ) , I IA 163 I , 1 07 ) ,M A( 64 I , PDY) .UAf 65) , I TE P , MA(41 )» ITAPI F4FNX017 

EQUIVALENCE I IA(66P , ICAR) ,f I A ( A 7) , IClXP , I I A 168 I , IC I Y> , (I A [691 . F4FNX01 B 

I IC1ZI ,( IAI70) tICFI I ,< 14(71 > , IXX I , < IAI Y7),IYY I, I I AI73I ,UZ) , E4FNX019 

2( IA174) , I 1C I . ( IAI75) .IDEE I, ( IAI76), 1ST), I IA(77|. IIS) F4FNX02 0 

3,( 1 A I 7 3 > .IDEM), | IAI79) ,IERR) , (AAI80J ,TI ),(AA(8l ) ,DT), I AA|82 I ,0G). E4FNX0 71 
4 ( AA tB 3 > .ALL I .( AAI84] ,AL2), ( At [851 ,AL3). (AA<fift),n71 I . i AA( 107 ) ,P) , F4FNX022 
5 ( AA < 131 I ,UV J , I AA( 1S5) ,X) . I AA I 163J.Y] , ( 44(171 I ,Z) f I AA( 1 79) .Xll) . E4FNX023 

6( AA( 186 I , YD I , ( AA! 193), ZD), I AA I 351), SI . ( AA ( 40 } , ZGF M ) F4FNX024 

7 , | AA 142 | , 1NP ) , (AA (43) , JPRG ) , (AAI44) , 1PEN I . I AA( 45 I ,CONS ) , I A A I 46 ] » T IIF4F NX025 

8 I , I AAI 47) ,G1 P , ( AA( 40 ),G2 I, ( AAI49J ,r,3l E4FMX02A 

EQUIVALENCE <1A( 349 ) ,NT IC) , ( I ACJ4BJ .ISO I I . I 1 A I 347 ) , I SOY P , ( IA< 34 M 04FNXO27 

l . ISDZP, ( IA< 3451 ,J9P ,( 14(344), J10P ,( 1A( 341), JPRS), MA(34?| ,JSDY) F4FNX078 

2, I T A| 341 ),JSDZ), ( I A( 340 I . J ARE ) , I I A I 339 ) , ^MMX J ,( I A ( 33R ) ,.IMMY1 F4FNX029 

3, ( IA( 337 ) .JMMZ J , f TAI 336 ) , .IMF M . ( I A 03 5 I , I TAS ) , I 1 A I 334) . IOZ ) F4FNX0 3U 

4 , ( I A I 3 33) , IP 3 P , ( AA ( 372 P ,I>C.Y I , ( AA ( 33 1 ) , DGZ 1 , ( AA ( 330) , PRES) f-4FNXI)3l 

5, IIA|329),]PTRJ E4FNX032 

DIMENSION B1R ( 3 > ,S1R(3).0IN( 3,3) .SR( 6) .XNI 3) ,XFO) ,QN( 6), 0F( 61 , F4FNX033 
1RESI6),RE0(6),BA5[3), ICLAS(4J ,NRAN( I O ) , NU1 3 ) . NES I 3 ) E4FNXD34 

FOll I VALENCE ( A A ( 200 P . I ONE > , l At ( 201) , I CN ) , ( AA ( 202 1 , LM) , I AA t 203 ) . ASTE^FNXO 35 
l) , [AA(?04I , IMBDNI . ( AAI205), ARE ), ( AAI206), ICLA1 , ( AA(207| , JMFJ. J , F4FNX036 
2(AA(20B) , (M) , (AAI209J ,IC) , I AAI210J .ICfJNP ,(44(211 ) , ANGLE 1 , I AA [ ? 1 2 1 .E4FNX0 37 
3ICAS),(AA(2131 » IE),( AA( ?I4),N(J| , ( A4 I 2 1 5 ) , Mfl ) F4FNX 03 B 

4, (AAI216), IROT), IAA[?17).R5T) F4FNX039 

EQUIVALENCE (AA ( 220) ,01 Rl , ( AA( ?23 P , SIR 1 , ( AAI 226) ,OIN) , ( AA( 235) , SR PF4FNX040 

1 , ( AA(?4L l,XN) , ( AA(244) ,XF) ,(4A(247),QN) , |AA| ?53J T Dri , IAAI759P , RFS 1 F4FNX0 41 

2, (AA(266| ,KFD), (AAI271 ),BAS), (AA(274) , I CL 4 5 I , ( At ( 27R ) . NR AN J F4FNXCJ42 

3, ( AA (292 I i Nil ) . ( AA ( 295 ) .NFS) F : 4FMX043 

01 MENS I ON NEL I 20, [ 7 I , MAC (4, 4, PD). I NG( 90 ) , OD I 6 , 6 I , A ( 90, 7 ) , 8 I 8, ft ) , F4FNX044 

1C (8,2 I rPFI 1 I , NSE T (100) ,MSET< 100) , W< 3, 3 ) E4FNX045 

EQUIVALENCE (At (14000) .FF ). I NU( 1 ) ♦ JP t I t ( NUI ? I . J M I > , I NU ( 3 ) , JS 1 I £4pNX046 

EQUIVALENCE IFF ( 1) .HELP , ( FP ( 34 1 > , MAC ] , ( FF ( 661 ) , ) WR J , ( FF ( 751 ) ,1)1) > , E4FMX047 

II FFI 7B7),A), (FFHAl?) ,BP , (FFI 1481 J ,C), (FFI 1497J.NSET), [FFf 1 597), F4FNX04B 

2MSFT I , I FF I 1 697) ,W ) T4FMX049 

DIMENSION Q(3) F4FNX050 

1 XX I = 1 XX+K F4FNK051 

I YY J * | Y Y+K F4FNX052 

1 ZZ 1 ~ I 2 2+K F4FNX053 

QI1)=AA(UX1) F4FNX054 

0I2I-AAIIYYI) E*FK'X05S 

(II 3 l«AA( I H I >*ZG£M F4FNX056 

RETURN F4FNX057 

FND f 4FNX068 
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Table VI 1-65 ► Source program listing of subroutine GENE (Link 4) 


* LABEL 

CE4GEN 

SUBROUTINE G6ME 

C GENERATES NEL AND MAC MATRICES (IF A NIIOF 

C TO GENERATE NFL (I , J} ,MAC < 1 , J.K ) , IMEL AND I CL AS < I J 

DIMENSION I A< 1 I . A A I LI , S I 1> , N (8 1 » D2 1 (21 ) ,1)331 3,31 ,E22< 3,31 
l , P I 24 J .lPV(?4),Xlfl),Y(BJ * l 1 8 ) , XQ ( 7 ) , Yl) ( Y ) , 7D( '/ ) , (11 (I 1 
COMMON T A , A A 


E^GtNDOO 
F 4GENOO 1 
F4GFN002 
FAGEN003 
F4GFN004 
E4GEN0O5 
E'.GENOOft 


EQUI VALENCE ( I A , AA ) , I D?1 ,033 ), 1021(10], E2?l,< 02 l(19),E)»ID2l(?0J ,f,)F4GEN007 
EQUIVALENCE ( I All! . IN 1 , ( I A {2} * I PM > , ( IA( 3 I , TT) , { I A I «] , I P > , ( I A I 51 , E4&EN008 
L1PRS) , I IA(ft|, I TYPE ( I A(71, IHAT I, ( T A I A I , I DEC, ) , (I A ( 9 I , INX ) , ( J A ( 1 0 | , F 4CEN009 
2IM1 tMAUI 1, IBI, CIAI 121,IKMX| ,I|A( 13), IMI-YJ , I I A| L4| , IMMZ) ,<IAri51 , F 4GFN0U) 
3IMF1 >, I I A I lf>) , I ARb I * I J M 171 ,NI 1 II , t ] A( 25 ! , Mi ) , M A ! 2 ft I , II Y ) , I I A I ? 7 ) , F 4 GEN 01 1 

MSTtO, I IA I 28 KIEL 11 , t 1 A ( 29 ) , 1 TEM ) , | I A I 30 I . I T I C 1 , I I A I 31 1 , I ME I I , E4GENDI? 

5{ IA132J , I SUM 1 . ( IA( 33), INtJJ, ( IAI 34), IMS P , ( IA(3fi), 1051 i (IA(37P, F AGENO l 3 

6IDKD), UAI 3fl),IDR01>, tIA(39) ,ACI?L I . <1 A < 50 ), J I) ,( I A t 51 P , J2 ) , F4GEN0 1 A 

7< IAI52I ,J3), ( IA(S3J,J4) , < 1A(54) ,J5>, fl A I 551 ,Jft) , I I A 196) , 0 7 ) ( < J A < 57E AGENOl S 
fl), Jfl), ( I A I 58 ) .JTYJ, I I At 59 1 ,IBB I . ( iA(hO) , 1BDP , I IAI t>l 1 , I I DP , ( IAI 62) , F 4GFN0) ft 

V 1 i A ) , ( I A. ( ft 3 I i IUD < I I A ( 64 > « I OY 1 , ( IA{65).ME),( I A ( 4L >, t TAP) F4GEN017 

EQUIVALENCE U A I 64,1 , I CAR I , (I A ( ft 7 ) , I C I X 1 , t I A I ftfl ) , 1 C I Y ) , I 1 A I 69 I , E4GEN01R 

I 1CIZ) , I 1 A 1701, IGF 11, ( IA(7l J , I XX P , U At /?) , TYY) , I TA(73I , IZZ I, E4C.EN019 

2( IAI74UI1CI * (IAf75) ,IDFF> ,(IAf76) , ISTJ tl I A<77), IIS) E4GEN020 

3, < IAI 7B) t IDEM), (IA(79), IERR), (AA(flO),TEI , ( AAffiD.DT), (AA|B2},f>T.], E4GEN021 
4IAAI03 I tALI I ,<AA| 84| t AL2>, IA4I851 ,AL3>, I AAIA6) ,021 >, I AAI 107) ,P) . F4fiENl)7? 
51 AAM31 >,UV>, I AM 155) , X! , t AA| 163), Y), I AAI 171U2), tAAl 1791 , XD>, E4GEN023 

blAAl 1861 , YD), I AM L931 , 2D ) , I A A 1 35 IP , S ) , < AA ( AG ) , /GEM. ) E4GEN024 

7 1 I AA I 42 J » iNP) , I AA1431 ,1PBG), I AAI44J , I PEN) , ( AA ( 45 1 , CONS 1 , I AA(4ft>, IUF4GEN0?5 
BJ T (AA(4/) ,G1I ,(AA|481 ,G2) , I AAI49I ,G3) E4GENCI26 

FOlllVALbNCF t I A< 349), NT Id, 11*1341)) , T SOT I , ( 1 A ( 347 I , I SPY ) , 1 I A | 346 1 F*GEN027 
1,IS0/),ITAI345), JS),| 1AI344) IA1343) .JPftSl.l IA1342) ,JSDYJ F*GEN02B 

2 , ( 1 A ( 34 1 ) , JSDZ ) , ( I A ( 3401 , JARF > , (I At 339),JMMXI , I I M 330 I ,.JMMYI E4GEM029 

3, ( I A I 337) ,JMMZ>, t IA(336) , JMF I I , ( I A ( 335 I , IT AS ) , I 1 A I 334 > t I 07 J F4GEN030 

4 p 1 I A t 2 3 3 ) , I P ft 1 . I AAf 337>,MGY J , ( AAf 331 ),OGZ)» t A A ( 330 1 ♦ PRES I E4GFN031 

5, (IAI3P9) , IPIK) F4GEN032 

DIMENSION BIR I3)«SJK13}*U1NM,3) , SP. I ft | , X N I 3 I , X F I 3 > , ON I 6 ) , Q F t ft } , f4GFN033 
IRES 16) ,KFD|6| ,nASI3), IGL AS 1 4 ) , MB AN (1 0 ) ♦ N(l< 3 1 ,N6S 1 3 1 F4GENf)34 

EQUIVALENCE ( AA(200) , 10NE >, I A A ( 20 1 I . I CN ) , ( AA t 207 ) , LM ) , I A A I 2D3 1 , AS IF 4GEN035 
1 I , (AAI204) ,INBON) ,1AA(205) ,AR£), [AA120M ,ICLAP . ( A A ( 2D7 ) , 1 MEL > , r4GEN03A 
?t AAf 208) , IMP, t A A( 209 I , IC I , f AAI 210 I , 1 CUN), < AAt 21 1 }, ANGLE), I A A ( 7 1 2 1 , t 4 G E N 0 3 7 
3 I C AS 1 , (AA12L3) » I b I • ( A A 17 14 1 ,NB ) , (AM71 5) ,MF)1 F4GEN0 3fl 

4. I AA 12161, IKD1 J , 1 AA 1 2 1 7 P , BS T 1 E4GEN039 

rOlJI VALENCE IAA1 220) ,RIR ) , (AA (223) ,S IR ) , I AA| 276) ,EJIN ) , t AAt 735 ) ,5R 1E4GEN040 
1, I AA1241 ) ,XN), 1 AA [244] , XF ) , 1AA( 247 I , ON 1 , 1 A A ( 75 3 I , OF ) , t AA 1 259 I ■ R ES ) E AGEN041 


2, (AA (265), RED) ,1 AA(27L),flAS) ,t AM 2 741 , ICLAS) , ( AA(?7fl) , N BAN ) 

3, I A A < 292 1 ,NU), tAA(795J .NFS) 

DIMENSION NEL 120,17) , MAC (4, 4,20) , I WGI90P ,0016,61 , A (90.7) ,Bl8,ftP , 
tCl8,?l,FHl J ,N5FT< lOOl.MSETdOOl ,W(3, 3P 
EQUIVALENCE < AAf 140001 , FF ) , [ NJ « I ) , Jf> I ) , (NlJt 2 ),.))'] ) , 1NU(3I , JS1) 
EQUIVALENCE IFF I l >,NELlf ( FF t 34 1 I , MAC ] , I FF I 661 J , I UG ) , I FF ( 75 1 ) , Of) > , 
l(FF(7B7),AP,(FFIl4l7),BPp(EM14BlP l CPi(FF(1497|,NSET), IFF (1597) , 
2MSETP , IFEM 697 I, Ml 
DIMENSION NFLMI20) ,NELC(20) 

EOIJ I VALENCE I M5E T , NFL* I . < MSE T 1 ? 1 I .NELC ) 

LM^LM 

00 1 1=1, LM 
M=NF L I I , 1 ) 

CALL TOFU 
kelt-ielt 
GO TO 11, 

IMS-3 
(ill TO 5 
TMS=4 

Gfl TO 5 
INS=8 
GO TO 4 
IMS«? 

GO TO II, 1,1, 1,11, 11 ,12, 12, 14,1. 4,18,10,17, 17, l 3, 13, 15, 16) .KELT 

IC-1 

GO TO b 

IC=2 

GO 10 ft 

1 C = 4 

GO Tn 7, 

IC=B 


,4, 3, 4, 4, 0,3,' 


,3,4,2,?) , KfLl 


E4G6N042 

F4GEN043 

E4GEN044 

F4GEN045 

E4CEN046 

E4GFN04? 

E4GEN048 

T4GEN049 

F4GEN050 

F4GFN051 

F4GEN05? 

F4GFNOS3 

E4GFN054 

E4GEN055 
F4GFN056 
F4GFN057 
F4GFN05S 
E4G H ND59 
EAGENOftO 
F 4GFN0A1 
F4GENDA2 
E4GFND63 
F4GEN0ft4 
E4GEN065 
F4GFN066 
E4GEN067 
E4GENQ6H 
E4GFN0fi9 
E 4GEN07D 
F4GFN071 
E4GFN072 
F4GFN073 
E4GEN074 
F4GFN075 


13 I C = 3 

GO TO 6 

15 I C=5 

GO TO ft 

16 I C -6 

6 NEL (I ,Z )= I FLT 
NFL I I ,3)“ IMFT 
NEll I ,4) s|C 
NEL I I ,5)-lMS 
NEL ( I,ft}-I T It: 

NEL t l t 7l-JSDZ 
NELI I,8)=JPRS 
NEL t I,9JxlTEM 
DO 7 J si, I MS 

7 NEL ( I , J+9 )=Nt »)) 

IMS^O 

jsoz«a 
1 T I C~0 
1C=0 

1 CONTINUE 

IF (1NP-2) 70,71,71 

71 WRITE OUTPUT 1 APF ft , 72 , I CN , LM , !( NEL (1 , J > , J =1 . L 7 I , I = ] , l. M } 

72 FORMAT (I 5, 1 5X , 16HNE L MATRIX FOLLOWS , I 20/ t ?0X , 1 7 I 5 ) I 
70 I ME L~ L 

00 210 1=1, LM 
NELC I 1 I =NE L ( 1 ,4) 

210 NELMt 1 ) “NE I. II , 3 > 

LM r=o 

DO 21 1=1, LM 
I F (NELMt ID 21,21,2)1 

211 LMT = LMl ♦ 1 

IF (LMT-4) 212,212,213 
713 WRITE OUTPUT TAPE 6,2)4, ICN 

2 14 FORMAT ( 15, 1 5X .41HM0RE THAN 4 MATERIALS, FIRST 4 CONS I OERFO I 
LMT^LMT-1 
GO TO 21 

212 IMET = NELMI I I 
Li:t.»0 

oa 22 J=l » LM 

IF ( IMET-NELM(J) > 22,220,22 

220 IF (NELCIJI) 22,2 2,221 

221 LCL=LCL+1 

IF (LCL-4) 222,222,223 

223 WRITE fJlJlPJT TAPE ft , 224, I CN, I ME T 

224 FORMAT ( 2 1 5 , 1 OX , 39HMQR £ THAN 4 CLASSES. FIRST 4 CONSIDERED! 
LCL= lCl-1 

GO TO 22 

222 ICLA = N6LCU1 
L =1 

MAC ( LMT , LCL , l 1=0 
DO 23 K= J , LM 

IF ( IHET-NELMI K) ) 23,231,23 
23 L IF ( I CL A— NELC ( K ) ) 23,232,23 
232 NELM t K ) =0 
Ntl.C (K )=0 
L* I. ♦ \ 

IF (L-20P 233,233,234 

234 WRITE OUTPUT I APE ft ,2 35, ICN, I MET, ICL A 

236 FORMAT ( 31 5 . S*,42HH0Rb THAN 19 FlFMENTS. FlkSl 19 CONSIDFRFD) 
L-L-i 
GO Ttl 2 3 

733 MAC ILMT,LCL,L)~K 

MAC I LMT, LCL, 1 ) =MAC I LMT ,LCL , 1 1 + 1 
23 CONTINUE 
22 CONTINUE 

1CLAS< LMT )=LCL 
21 CONTINUE 
JM6L=LMT 

IF IINP-21 90.61,81 

81 DO 83 1=1, LMT 
1CLA=ICLAS I 1 I 

WR11F OUTPUT TAPE 6 , 82 , I CN, I . ( J , ( MAC I I , J , K J ,K= I , 2f) ) , J= 1 , ICL A } 

82 FORMAT (1 5, 15X.36HMAC MATRICES) FLlLLnW(SI. MAT.SE0.-I3/ 

) (17X, 13,2015) ) 

83 CONTINUE 
90 RETURN 

END 


F4GFN07ft 

f4GEN077 

F4GEND7R 

K4GPN079 

F4GEN0RD 

P4GEN0R1 

P4GFN0B2 

F4GEN0R3 

F4GENCifi4 

E'-Cfnoas 
FAGFNOBft 
F4GFN087 
E4GEN0fSH 
C4GENDP9 
E 4G6NO90 
E4GEN091 
E 4GEN092 
E4GEN093 
E4GFN094 
R4GEN095 
E4GEN096 
E4GEN097 
E4CEN098 
E4GFN099 
F4GKNLO0 
F4GENHH 
E4G6N102 
E4C.EN103 
F4GEN104 
F4RFN106 
F4C,ENlnft 
F4GEN107 
E4GEN108 
E4GEN109 
E4GFN110 
F4GFN1I l 
F4CEN11? 
E 4 GEN I 13 
E4GEN114 
E4GFNII5 
F4GFNU6 
E4GFNII 7 
E4GHNUB 
P4C.EN119 
E4GEN1 20 
F4GEN171 
F4GFN122 
E4GEN123 
F4GEN124 
F4GEN12S 
E4GEN126 
E4GEN127 
E4GEN178 
E4CEN129 
E4GENL30 
F4G6N131 
F 4 GEN I 37 
E4GEN133 
E4GEN1 34 
E4GEN135 
F4GEN136 
E4GEN137 
F4GENI 38 
F4GFNP39 
F4GFN1 40 
E4GEN141 
F 4 GEN l 42 
F4GFN143 
E4GENI44 
f 4GEN145 
E4GEN14A 
E4GEN147 
E4GFN148 
F4GFNL49 
E4GFN16D 
E4GEN151 
F4GEM) 62 


Table VII-66. Source program listing of subroutine INER (Link 4) 


label 

SUBROUTINE INER(C IR ) EaInroOI 

OHTAINS A VECTOR HEADING TOWARDS 7HE STRUCTURE AT A BOUNDARY NODE F4INR002 
(□ GENERATE A VFCIUR HEADING INTO THF STRUCTURE ON CIRIII E4INR003 

DIMENSION I All), AAt l >,S(1 ) , N ( 8 ) , 1)2 1 ( 7 1 ), 033 I 3, 3 ), E2 2 I 3, 3 ) E4INR004 

1, PI 24 1 ,UV(?4>,X|8P,Y(8),2l8) ,XDI7) ,YD(7) ,ZD(7] ,G1I 1 I E4INR00 5 

COMMON I A , A A E4INROOA 

EQUIVALENCE! I A , AA ) , ID2L,t)33) i ( D2 1( 10 ) ,F22P ,(021 119) ,R> , I D?1 I 20) ,GIE4lNROn7 

equivalence HA(i),iN) f irAi2),ienn,(iA(3j,rrj,MAi4),iP),(iAi5>, faenroob 
IIPRS) , I I AI6I ,IIYPF I , ( IAI 71 ,1MATP ,( IA(8| , IDCG), I IAI9), INX) , t IAI 10),E4INRD09 

21H), I {4(11 ),J8), t IA( 121, I MMX), I IAI13), IMMY), t I A | | 4 I , 1 MM2 I , ( ] A I I 6 1 .E4INR01Q 

3IMF]) , [ IAI 16), IARE) ,IIA| 17 ),NI 1 I I , ( ]A(25) ,M] , ( [A( 26) , ! TY) , ( IA (27) .E4IMR01 1 

♦ I S T R ) , ( I A I 25 I i IELT), I IAI79P, ITEM), I 1 A t 30 I , IT I C I , ( I A ( 31 ) , 1 ME T I , E41WR0) 2 

aUSoF! ’ lNr >* *< I*(34] ,IMSP , ( IAI 36 j , ins), I IA(3?| , F4INR013 

6 10RI) > , ( I A ( 38 ) , IQRD1 ),( I A I 39) , ACEL I , (T A I 50 > , Jl ) , I I A t 5 1 P , J2 ) . E4INRD14 

/< IAI521 ,J3), I IA(53),J4I, ( IAI 54J , J5),{ I At55l,.lft| , (1A(56),J7), I J A I 57F4 INR01 5 

8 ,J8),nA(5 0 ),JTY), P IAI59P dBU), I I AP60P » t Of)) , I I A t 61 P , 1 1 0 > , I I A ( 62 ) . F4 1 Rfinj 6 

9 1 .IU(«3l,n)l l,(|A(64),IUYI,CIA|ft5I, ITE), I IAI41I, I TAPP E4INR017 

l ? A X f nAt tldX) ,( lA(ftHUlCIY) , ( IA(69) , C4INR01B 

lICIZ) T (lAl70l,ICFI),llAt7ll l IXX),([A(72),lYY],(|At73),IZZ), 

ZIIA{74 1 , IIC P ,1 IAI75) , IDEF P , ( IA(76] ,ISTI, ( IAI 77) , US) 

3,1 IA t 7R>. IGFMI . ( TA(?9l icod 


F4INR019 

E4INRQ20 

E4IKRQ21 
E4 1NR072 
F 4 | NRI17 3 


? ALl | 1 > A L2) , I AA 185 I i AL3 ) t (AA (86) ,021) ,(AA ( L07) ,P P / 

&IAAI131 J ,UV), IAAI 1551 ,XP, (AAI 163) ,Y), (AAt 171) ,Z), ( AAn79),XD), 

MAACl86l,YDP,|AA(193>rZU),tAA[351 > , S ) , ( AA ( 4D ) , ZGEM ) E41NR024 

fl! ! A? ’ [ A4( 4,4)4 l pEN >* < AAI45) ,COWSI, ( AAI4fiJ ♦ IUE4|NR02 5 

a» r(AA|4n,Cl I , IAAI68I ,G2 1 , [AA(49),G3I F4INRn?ft 

l E ?^7? L ^^Jl A,3 ^ ><M7ICJ ’ MA<3 ^ >,r5DT> ’ ,U[347KISr>V| ’ ( l A< ^ fa > ^INIHI7 7 

a ^ IAI 340),JARE), t IA( 339) ,JMMX), ( IAI 338),JMMY] E4| N R029 

3.1)4(337 ) , JMM2 ) . (1A( 336P , JMF1) . IIAI 335) , IT AS J , ( I A ( 334 ) . I DZ > C4INR0 30 


4, ( ]A ( 33 31 , I PR ) , IAAI332) ,OGY), ( A A ( 331 ) , DGZ ) , t A A f 330 I ,PRES) F4FNR0 31 

5 , t I A ( 379 ) | I P T R J F41NR032 
DIMENSION B!R(3) ,S1R(3) ,DlN(3,3),SR(ft) tXN( 3l 1 KF(3),DN(6) , OF ( ft | , E4JNR033 

1RESI6P ,RED ( 6 ) , BAS ( 3 ) , I Cl AS ( 4 I ,NBAW< 10) ,NU(3) ,NFS( 3 1 F4INRD34 

EQUIVALENCE t AA (200) , f flNE I , I A A t 20 1 ) , I CN ) , t A A t 202 I , L M ) , ( AA i J03 ) , AS TF4 (WR035 
1 1 , (AA (2041 , INHC1N) , t AA(205I ,ARF ) , t AAt?Obl . T CL A ) , I A A [ 207 ) , I MEL ) , F4 INR036 
2t AAI208), IM>, (AA1209),iC) ,f AAI2L0I , ICON), tAA( 211 I , A NGL F I , ( AA ( ?1 2 ) , E4 INR037 
3 I CAS ) , (AA [213), IE), (AAI 214), NB) , tAA (215) ,MB) £4INRn38 

4, I AA( 21ft) , | ROT ) , ( AA 1217 J , B5T) f4[4jR039 

EOU I VALENCE t AA t72D] ,B IR ) , I AA | 223) ,SIR),!AM72ft|,D1N),(AA(235) ,SRIE4 INR040 

1 , (AAI 241 ) , XN) , I AA ( 2 44 ) , XF ) , I AA ( 24 7 | , ON ) , t AA < 253 > , QF ) , ( A A | 2 59 } ,RfS ) E 4 I NRO'< 1 

2, IAA(2ft5),RED) , IAAI271 I ,8AS) , (AA(7 74| ,ICLAS| ,( AAI278),NBAN| E4INR.042 

3 , I A A I 2 92 ) ,NU P , ( AA I 295 ) ,NtS ) E4|NR043 

DIMENSION NEL I 20, 17 I , MAC (4, 4, 20) , I W&( 90 P . DD ( 6, ft I .A ( 90 , 7 ) ♦ Rt 8 , R) , E4INRD44 
1C(S,2),FF(1 1 ,NSFT( 10t)),MSET(tOO) ,W( 3,31 F41NR045 

EOU I VALENCE (AA( ) 4000 ) , FF ) , I NU I L ) , JP 1 | , ( Nlj I 2 ) , JM1 J , | NlJ ( 3 ) , JS l P F41NR046 
EQUIVALENCE (FF(1 | ,NEL ) , I FF ( 341 I , MAC I , I FF ( 6ft L ) , | WG ) , < FF t 75 1) , DO ) , F4JNR047 
ltrr(787l ,A) , {FPU417I ,BI ,(FF(1481) ,C), I F F l L497),NSET I , I FF ( 1 597 I , E4INR04B 
2MSET ) , ( FF ( 1697 1 ,W I 
DIMENSION C 1 R ( 3 ) 

CIR(1 1=0. 

f.TPi3i=n. 

C IR I 3P=0. 

OCI l |2j.,N0 
K=NSET| I I 
CALL FINDXIR.XF) 

C IR I 1 P-CIRt I l+XFI l l-XN(l) 

CIRI2)=CIR(2 H-XF(2I-XNI2 I 
CIR I 3 l=C IRI3P + XFI 3I-XNI3 ) 

RETURN 
END 


E4 INR049 
f4 INR060 
FMNH051 
£41 NRO 
E4INR053 
FMNR0 54 
F 4 I NR D4 5 
F4 IMRQ56 
F 4 [ N R 05 7 
F4 INR05R 
E4INR059 
F4 i NROftO 
E4 I NROftl 
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Table VII-67. Source program listing of subroutine INLZ (Link 4) 


4 LABEL 

CE4INZ E4INZOOO 

SUBROUTINE: INLZ FMWZ0O1 

C INITIAL j ZFS SCALARS, VECTOR S AND MATRICES AT A NflDF l=4jN20n2 

C TO INITIALIZE I CON. ANGLE .BAS, DIN, W, IROT,6ST , I ERR , Tf ,f)T .DG , AND NFSF4 INZ003 

D I MENS I HN Id 1 1 1 , iA{l),S(l 1 ,N(H) *1)21(21 1, D33I 3 ,3) ,E22 13*3) F41NZ004 

1 ,P(24),UV(?4) ,X| 8 I ,Y(8) , Z( bl . Kill 7 ( *YI)I 7 ) ,ZO< 7) ,01 { 1 I F4 INZ 005 

COMMON J A , A A EAINZOG6 

FQU1 VA LENC El 1 A , AA I , I IJ2 L , D33 1 , I P2 l 4 10 P , E22 1 , < 02 1 (19) ,F> , t \Y? It 20 I ,G 1 FA I NZ007 
EOLM VALENCE IIAIl>,INl,nAI2P,IBN).t|At3),IT).IIA|4l,IFI,IJA<5), E41NZ008 
) I PR S ) , ( | A ( 6 I , l T Y P E ) t ( I A ( 7 ) , I MA T I ,( IAI HI,! DEG ) , I I A < 9 1 1 ! NX > , I I A I 1 0 J .EMNZ009 
21HI,tlAILIMR|,(lAn?), I MMX] , I 1 A I 1 3 ) * T MMY 1 . I I A 1 1 4 1 , IMMZP , ( I A M 5 ) ,F4lNZ(H0 
3 1 Mr . ),{ IA[16>,1ARE1 , UAf 17), Nil! ),HAf74|,h>, I IAI 261 , ITY>, ( I A ( 27 > , E4 ] NZ 01 1 
AISTRI, I IAI291, IELT) , I I AI29) ,ITEM| , ( IAC301 .1TICI ,( IAt31) , [NET) , £4 I NZOi 2 

SI IAI32I , I SUB) , I IAI 331. IN0>,{IA(341, IMS). ( IA( 36), IDS) . (IA (37 ), F'i ]NZOl 3 

6I0RDI, I I A 138 I . I0RD1 I , ( 1 A < 39 ) , ACEL ) , II A ( 50 ) , J l I , l I A < 51 ) , .12 P . E4JNZ0J4 

7(IA(52I , J3J , UA(53), J4>, I IAP54I, J5I .( 1A(54),JA>, I JA I 561 , J7) , ( TAI57F4 INZOI 5 
«) ,JBI . IIAI5SI . JTV),UA(59| ,IBBJ, I IAI601, TBCII ,MAt6l ) , IID),UA|62 P .EAINZ0I6 
9I1A), I 1A16J),1DT I, (IA164),ttlY), IIA|A5| ,ITE),UA(41 I ,11AP) 6A|N?,017 

EQUIVALENCE II A (66) , IC AR ) , ( I A I 67 ) , IC I X ) , M A I 6B 1 , 1 C 1YI , < I A ( 69 > , E41NZ018 

IICIZ I, IIAI701, ICFI ) , I IA(71 I, IXXI,UA( 72), IYYP , ( JA (73), IZZ I ♦ F4 INZ 01 9 

21 1 A ( 74 ) . I I C > , I I A ( 75 I rIDEF I ,( IA(76>, 1ST I, I IA|77] ,11$) E4INZ020 

3, U A( 78 ), I GEM I , ( IA( 79), I ERR ) , I A A ( 80 ) , TE ) , I A A ( 81 P , f)T ) , t A A ( fl2 I , nr, ) , F4 IN 7,021 

4IAAI83) ,AL1) ,IAA(84| T AL2), (AAIR5) ,AL3), I AA ( B6 P . 1)2 1 ) . I A A I L07 I , P ) , E41NZ022 

5(AA(13L),UV), IAA(L55),X), tAA(T63P,Y), IAAII71 I ,Z J , (AAI179I ,XD), FMNZ023 

6<AA<186) ,YI)I ,1 AAI 193) , 20 I , ( AA ( 35 1) , S > . I A A ( 40 ) , 7GFM ) E4JN2024 

7, I AA142 J , INP I . ( AAI 43) , 1FBGI , { AA( 44) , |PFNJ , ( AA ( 45 ) , CONS ) ♦ I AA I 46 I , It>F 4 I NZ02 5 

81 , UAI47 ] , £1 ) , ( AA (4H) ,li2l , ( AAI 49) ,f>3) L4INZ026 

E0IJ1 VALENCE I I A ( 349 I ,NT IC I , ( I A I 348 > , 1 SOT ] , ( 1 A ( 347 P , I SHY > , ( I A ( 346 ) E4INZ02? 
1 ,ISI)Z) ,( IAI345P, J9I ,( IA(344P t% fiO),( IA043) ,JPRS), I t AI347>,.ISnY> F4INZ02A 
2. I IAI 341 ) ,JSOZ ) , I 1 A I 340 ) « JARE ) , ( I A ( 339 ) , JNMX ) , (IAI 336) »,IMMY) (-MNZ029 

3,1 IAI 337) , JMHZ ) , ( l A I 336),JMFI) , II A l 335 J , 1 TAS I , ( I A I 334 ) , I DZ ) E4INZ030 

4, I IAI 333) , 1PKJ, I AA 13 32 I »Q6Y ), I AA I 331 I »OGZ ) , IAAI3 3D), FREES) E4IW2031 

5, ( ]A(329) , IP PR I E41NZ032 

DIMENSION B IK (3), SIR (3) ,DlN(3,3l ,5Rt6),XN(3] ,XF(3P ,DNI 61 ,0F(6> , E4IN2033 

IRES (6), RED! 6) .BA5I3) , I C LAS ( 4 ) , NBAN I 101 ,NU I 3 ) tNES I 3 ) F4INZ034 

EQUIVALENCE I AAI 200) , 10NE ) , ( AA( 20 1 ) , I CN ),(AA| 202) ,LM) , ( AA (2031 , ASTE41 W7035 
1 ),{AA(204) ,1NR0N>, |AA(?05) , ARE I , (AA(206) , 1 CL A > , ( AA ( 207 I » 1 MEL I , F4INZ036 
21 AAI 206 I , IN) , t AAI 209), IC I ,1 AAI 210 ) * I CON ),< AAI 2 1 1 ) .ANGLE I , ( AA ( 21 2 ) »E4 INZ037 
3 1 CAS ) , IAAI213) ,161 ,< AAI 2 14 ) ,N&1 ,( AA(?15),MH) 64 INZ 036 

4, ( AAI 216) , I ROT I . I AA I 21 7 > , 6$ T > E4IN2039 

EQUIVALENCE (AAI2?0),BIR)*( A A ( 22 3), SIR), t AA( 22 6) ,OIN)« I A A I 235 ) ,S« I H41 NZ040 

1 , ( AAI 241) ,XN) , ( AAI 244 I , XF ) , ( AM 247 ) , ON I , < AA I 2 S3 ) , OF I , I A A ( 259 ) , R ES ) F4 I NZ041 

2, ( AAI 2 65), RED), I AAI 271 ) , B AS I . I AA ( 274 1 , ICL AS > , I A A I 2 78 ) , N6 AN ) F4PNZ042 

3, ( AAI 292) ,NlJ) , (AA< 29$) ,NES) EMNZ043 

DIMENSION NEL (20, 17 ) ,MAC 14,4,20), ING( 90 ),nD(6,6P ,At 90,7) ,B( 8,81 , E41N2044 

1C( 6,2 ) »Ff ( 1 1 ,NSET 1 1001 .MSET 1 100 I »V< 3, 31 E41N2045 

EQUIVALENCE < AA ( 1 4000 > , FF ) , I NU I 1 ) , JP 1 1 ,<M|/f2l , J Ml ) , I Nil I 3 I ,.)S1 ) E4INZ046 
EQUIVALENCE (FF 111 ,NEL ) , IFF ( 341 I ,MAC) , (FF( 661 I , IMG) , I FF I 751 ) ,DI) P , F4INZ04/ 
1 1 FFI78TJ ,AI , (FFI14I7P ,BI ,4 FF( 1481 I , C I , I FF [ 1497 ) , NS ET ) , I F F II 597 I , F4INZ048 
2MSET),IFF(1697> ,WI EMNZ049 

EQUIVALENCE ( NES 1 1 ) , I COL ) , IN ESI 2) , IRIG), INESI3), I DR I E'.INZOSO 

C SET INDICATORS TO LOCAL “OVER ALL E4INZ051 

IR0T=O F41NZ052 

flST=7H A E4INZ053 

C GENERATE OIN AND H TRANSFORMATION MATRICES FOR LDC AL = (lVr R Al, L EMNZD54 

00 l 1*1,3 E41NZ055 

DO l J=1 ,3 E4INZ056 

IF (I-J) 2,3,2 E4TNZ057 

3 DlN<IfJ)>l. S4INZ05R 

W(I j| B |. E4INZ069 

GO TO 1 E4INZ060 

2 OIN(I,J)=0. F4JNZ061 

W | I , J ) -0 , F4TNZ06? 


I 2 

U 

1 3 
15 

10 


c 


62 

64 

65 


66 


6H 

C 


69 


C 


21 

22 


20 


CONTINUE 

F41NZ063 

COMP (11 F AVERAGE TH 1 CKNFS S , IF MR . I NCHR ASF . T FMP GRADIENT 

E4INZ064 

TE=0. 

64|NZ065 

OT-0 . 

E41NZ066 

OG=0 . 

E4I NZ067 

I M a I M 

E4INZ06R 

IC-IC 

H4INZ069 

IE=MAC1 IK, IC,1 1+1 

E4INZ070 

IJ[) 10 1 L = 2 , IE 

F4JNZ071 

K=MAC 1 I M, IC, IL 1 

64INZ07? 

K1=NFL (K,6 1 

F4INZ073 

IF (KL) 11,11,12 

E4INZ074 

Kl = I T 5 +K l 

E4 INZD75 

TE= TE+ A A ( Kl ) 

C4INZ07A 

K1 =NFL ( K ,9 1 

E41NZ077 

IF (Kl) 13,13,14 

E41NZD78 

K1=IDT+Kl 

F4INZ079 

[)T.QT+AA(K1 ) 

E4INZ080 

Kl-NEHK.,7 1 

F4JNZ0BL 

IF (Kl ) 10,10,15 

E* 1NZ0R2 

Kl = 1 OZ +-K 1 

F41N70H3 

[)G=DG+AA|K1 ) 

E4INZ0B4 

CONTINUE 

E4 ] NZ085 

CC= 1 E“ 1 

E4INZ0R6 

TE-TE/CC 

F41NZ0R7 

DG-OG/CC 

E41NZ068 

OT-OT/CC 

E4 ] NZ089 

determine necessary PARAMETERS ACCORDING TCP CLASS 

F4INZ090 

I COL = 3 

F41NZ091 

]RIG=L 

64IN2092 

IDR=0 

C4INZ093 

1 C AS= IC AS 

E 4 TN7094 

GO TO (69,62, 69, 64 ,65 , 66,69,68), I CAS 

E4JNZ095 

!0R=1 

E4JNZ096 

GO TO 69 

R41NZD97 

1 LOL - 6 

E A INZ098 

GO TU 69 

F4 INZ099 

J COL ■ 1 

E4INZ 100 

GO Tf) 69 

F41NZ10L 

1 COL - 1 

E4INZL02 

IRIG=2 

E4INZ103 

GO TO 69 

E4TN7 104 

IR IG=2 

E4 INZ105 

INIT1AI 1 2 e THE OTHER CONSTANTS 

F4INZ106 

angles. 

P41NZ107 

1 CDN-0 

Ft1N210a 

1 ERR = 0 

F4INZ109 

GENERA TE BAS VFCTlJR 

F4JNZU0 

1 E -MAC 1 IM, IC ,2 ) 

F41N2U1 

K.NEL(1E,10) 

E4IMZH2 

CALL FINDXIK.X) 

F4INZ113 

K=NEL(IE,ll ) 

F4JN7.1 ! 4 

CALL FINDX(K.Y) 

E4 INZ1 15 

BAS 1 1 )=YI l )-X< 1) 

F4 INZ l L6 

BAS(2)=Y(21 —X ( 2 ) 

F4INZH7 

BAS ( 3 ) - Y I 3 l-X ( 3 ) 

fi 4 INZ 1 1 8 

CC = 1 . 

F47NZ119 

CALL UNIT(BAS.CC) 

f 4INZ120 

IF (INP“2) 20.21,21 

F41NZ121 

HR l TF OUTPUT TAPE 6 , 22, T E . DT, OG , BAS ( 1 ) , 8 AS 1 2 > , B AS 1 3 1 

€ 4 INZ 1 22 

FORMAT 1 20X. 5HTHICK,?X,F 11 -4,3X,11HTEMP. INCttSF,?X.M l 

.4,3X.1()HTEMPE4INZ) 23 

1 . GRAD, , ?X * E 1 1 .4, 3X,3HBAS,2X,3F7. 3 ) 

64INZ124 

RETURN 

E4irz ?<3 

END 

E4 JhfZ) ■*6 
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Table VII-68. Source program listing of 
subroutine INV (Link 4) 


* LABEL 

CF4INV 

Subroutine inv i a,n,b,m.ofterm) 

C INVERTS MATRICES UP TCI ORDER ft BY GAUSS ELIMINATION 

DIMENSION IPIVOTI 8),A| 8. R),RI B,2),INDEX( ftT2)-PlV0T( fl) 

EQUIVALENCE tlkOW.JRClW), t I CdLUM, .ICULUM ) , { AMAX « I* SNAP) 

C 

c 

C INITIALIZATION 

C 

10 DETERM=1.0 
15 DO 20 J = 1 t N 
20 I P I VfIT I J I =0 
ft ft- I m fc“30 
GO TO 9003 
<900? 0ETERN=0. 

GO TO 7*0 
9003 CONTINUE 
30 00 550 1=1, N 
C 

C SEARCH FOR PIVOT ELEMENT 

C 

<,0 AMAX=0.0 
-MS DO 105 J = 1 ,N 

bO IF ( I PIVOT IJ)-1 ) 6(1. 105, 60 
bn DO 1U0 K-1,N 

to IF <lPIVtlT(k)-n BO, 100 , 9002 

bn IF ( ABSF I AMAX )-ABSF( A| J,K)H R5, 100. 100 

bb I kUW = J 

90 icnuiM=K 

V5 AMAX=AIJ,K> 

1U0 CONTINUE 
105 CONTINUE 

IF (ABSM AMAX)-B6J 9002 , 9002 , 1 10 
1 10 IPIVOTI ICf)LUM)=lPI VOTMCtJLUlN Ml 
C 

c interchange kuws hi put pivot element nw diagonal 
c 

130 IF I iRCIW-ICnLUM) 1*0, 260, 140 
140 Of 1 LHM=-()E T ERM 
130 00 200 L" 1 ,N 
160 SWAP = A I I ROW , L ) 

1/0 A< IROV,L)=A( ICULUM.L) 

200 A( 1 COLUM t L)=SNAP 

205 I F ( M } ?60, 260, 210 

210 on ?50 L s 1 » H 

220 SWAP=ft( IROW.L I 

230 B( iftOW,L>*B( ICOl.UNtL 1 

250 ftl ICCILUM. L l-SWAP 

2oO INDEX! 1,1 1-lRIIK 

2/D INOFXfl ,2>MCDLUM 

.110 P]VflTUP=A lICNLUM.ICnUPM) 

320 OETERM-UFTERM^PlVOTt I 1 
C 

C UlVlOb PIVOT RON BY PIVOT FLFMFNT 

c 

330 A ( 1 COL Un , I COl.UM 1-1,0 
340 DO 350 L=1 , N 

3b0 A ( ir.LILIJM,L)=A( ICf»LOM,LI/Pl VfJH M 
335 IMM) 3H0, 380, 360 
3bO DO 370 L*1,M 

3/0 R( ICni(IK,Ll-flt I C (ll. UM , l ) / P J V< ) T [ | ) 

r. 

C REDUCE NUN-PIVOT RONS 

C 

ABO Utl S5D L 1 s 1 , N 

3V0 IFIL1-ICDLHM) 400, 53 () ♦ 400 

400 T = A(Ll , ICOLllM) 

420 A [LI ♦ ICCILUMI-O.O 
430 nil 450 L = 1 , N 

430 At LI ,1 ) = AIL1 .L l-A( 1C"LIJM,L i*T 
435 IPIM) 330, 550, 460 
460 Oil 500 L = 1 ,M 

300 IML1,L )=B(Ll,L )-R( ICnLUM.U’CT 

550 continue 

c 

C INTERCHANGE COLUMNS 

c 

bUO DO ?io 1»1,N 
61(1 l. = N+l-I 

620 IF MMDEXlL.il- INDEX I (.,2)1 630, 711). 630 

b30 JftOM=lNIJFX(L,l I 

640 JCQLIJM- I NOEX (L ,2 I 

63U 1IU 7D5 K=i,N 

66(1 SWA P=A ( K , J ROW I 

670 A|K,JROWl»AIK.JCnUJM| 

/OO AIK,JC11LUM|-5WAP 
/OS CllNTlNIJr 
710 CONTINUE 
/40 RETURN 
END 


E4jNvnno 

E 4 IN von ] 

E4TNV0D2 
EMNV003 
F4INV004 
E4INV005 
F4INV006 
E4|iwn07 
FMNVOOB 
F4INV009 
F4INV010 
H4INVDI 1 
E4INV(11 2 
E41NVD13 
F4INV014 
E4|NV0I5 
F4INVD1 b 
F4TNV01 7 
F4|NVniB 
F4 INV019 
€4|NV0?O 
F4INV021 
E4INV022 
F4INV023 
F4INV024 
E4IWV025 
E4JNV026 
F M N V 0 2 7 
F* I NVOPft 
F 4 | N V 0 ? 9 
F4INV030 
E41NV031 
E4INV032 
E4INV033 
F4INV034 
E41NV035 
E4JNV036 
F41NV037 
E 4 | NVU 3ft 
F4 INV 039 
F4JNV040 
E4 INV04L 
F4INV04? 
FMNV043 
F41NVD44 
F 4 JNV045 
E4 |hV046 
F4JNV047 
F41NV04B 
F4INV049 
F4INV050 
F4INV051 
F4INV05? 
F41NV033 
F4 JNV044 
E41NVn55 
E4INV056 
F4 I NV(1 57 
F4INV05B 
F4INV059 
E4 INVObO 
F4INV06! 

F 4 TN V062 
F41NV063 

F4JNV064 
F4INV065 
E4INV066 
E4 iNVObY 
F4 INVO/ifl 
E4JNV069 
F* |NV070 
E4INV071 
F4 INV072 
F4INV073 
F4 JNV0?4 
F 4 I NVO 75 
E4JNV076 
F4INVD77 
E4INV07B 
F4INV079 
(-4INV0AI1 
F4 INVOHI 
F4 T NVO R2 
F4 1NV0B3 
E4INV0R4 
F4JKV0H5 
F4iMtfnB6 
1-41 NVO 07 

F 4 I NVO Bp 
E41MVGH9 


Table VII-69. Source program listing of 
subroutine LEST (Link 4) 


* LABEL 

CE4LST Fit.STnnn 

SUBROUTINE LEST F4LST00] 

C OBTAINS STRAIN CCJMPdNENTS BY LftAM SOUARFS AT A NODE F4 LS Tf)0 2 

01 MENS I ON 14 I 1 ) ,AA| 1 1 ,SI ll.NlBl ,I»2l (?1 ) ,113313,3) , F22I3.3I E4LST003 

1, PI 24 1 »UV 124) , X ( B 1 » Y I ft I . I I/O , X01 7 ) ,YO(?1.2D(7| ,G1 III E4LST004 

COMMON 14, AA E4LST0D5 

l:OU I VALENCE I I A , A A } . I 02 1 ♦ 033 ) , ( D?l ( 10 ) ,E2?) . ( [J2 1 ( 1 9 ) . H , 1 0? 1 I ?0 ) ,G I E* LSTdOft 
EQUIVALENCE I I 4( lT, IN) , I I A 12 ) . I BN) , ( IA( 3) . IT] , f I A f 4), I P) , ( J A| 5) , E4LS T0fl7 

1 tPRS ) , ( I Af 6 ) , ITYPM , I I A|Y| , 1 MAT | , ( I A( R | , IOEG) tllAIV), I NX 1,114(101, E4LST0/IR 
2IHI.( 1A( 11), 18) ,{ !A< 12), I MMX), II A | 1 3) , I MM Y ) , | I A I l 4 | , 1 MM7 I , f I A ( l 5 ] . f4LS T009 
3 IMF I ) , II A I 16) . I ARE ) , I I A ( 1 7 1 ,N I 1) I , I I A( 25 ) ,M 1 , ( 1 A I ?6 ) , I TY ) . I I A 1 27 ) ,F4LSTu)n 
41 STR ) , I 1A(2R ) T JFLT) , UAI29I, ITEM!, M AI30I ,1710, ( I AI31 I , 1MET) , E *LS 1 D1 ) 

51 J A I 32), I SUM). (14133) , I NO I , ( 1 A I 34) , I MS I , M A I 36 J , I [IS I , I I A ( 371 , G -4 L <, 1 fi I ? 
bJClftD) , I IAI38) . (URDU, I 1A(3<9),4CEL } , ( ! A ( 50 ) , J 1 ) , (I A ( 5 1 I , J? ) , F Af S T01 3 

7IIA I 52 I , J3) , I IA( 53) , J4 1 , ( IA(54), J5 I . (1A145I , J6) , I IA( 56) . J7|, (IAI57E4LST014 

Bl , J8) , 1 I A 15ft I ♦ JTYJ , ( IA<59), ] B8 I ,< JA( 60). IBCI) , I1AI61 J , 1 ID), I IAI62) ,F4LST0t 5 
91 IA| ,( |A(63) .HIT), I 1AI64) , ll)Y| ,nA(64),JTE), (TAI41 | ,1TAP) E4LS1DU 

EQUIVALENCE ( I A I 66 I , ICAR ) , ( I A ( 67 ) , I C I X 1 , ( I A I b« ) , I C I Y I , (I A I 69 I . F4LST017 

1IC12), I IA170I , ir.FI 1 , MA171 ) ,IXX) , I I 4(72) . I YY), MA(73) . ) / /), F4L5T01R 

2( IAf74| ,IJC), I IA( 75) . ID6F) , { |A(76), I S I ) ♦ ( (A( TV), I IS) F4LST019 

3, ( I A (761 , I GEM ) , I IA|79).IEKK) . t A A ( HO I , TF I . I A A I R1 ) , f>T ] , I A 4 | R2 ) ,DCI » E4LSTt)?0 
41AAI83I.AL1 ), I AA(84),AL21 .( AA( 115) . AL 3 I , ( A A I 86 ] , 02 L > , I AAI107),P), F4LST021 
51 AAI 131) ,UV I , ( AA( 1551 ,X I , ( AA( 163) ,Y). | 46 1 171 ) . 7 I , I AAU79 I ,X11J , F4L5T022 

61 AAI 186 ) ,YD I , <AA(193) , ZD ) , I AA I 351 ) , S ) , ( AA ( 40 ) , ZGFM J E4LST023 

7, ( AA<42 ), IMP J , I AAf 43 I , I PHGI , ( AA| 44} . IPRNJ , ( AA(45I .CONS 1 . ( A A 1 4 6 J , 1 1 IF4LSTD24 
B1 .(AAI47 I ,G1 ). IAAI4RI ,G?) , ( AA(49| ,G3) E4 LST025 

EQUIVALENCE 1 I A ( 349 ) ,NT I C ) , I I A I 348 1 , I SOT I , ( 1 A I 347 ) , |$ [)Y ) . ( { A | 346) F4LST026 

1 , 1S0Z I ,.( 14(346 ) ♦ J9) , 1 I A I 344) ,JiOl , (IA{ 34 3), JPRS) , ( I M 34?) , JSOY ) F4LST027 

2, U A 041) , JSOZ 1,1 I A ( 340 I . J ABF 1,1 I A I 339),.)MMXI . ( I A (338 I , J MM Y ) F 4L $ T 1)28 

3, ( IA< 337 | , JMM7, ) , ( ! A (33 6 ] , 0«F IJ . < I A { 335 I , I TAS ) , I I A 1334) , 1DZ I R4LST029 

4 1 ( JA( 333 I , I PR ) , I AAI 332 ) , DGY I , ( AA( 331 I ,1)0/ ) , I AA< 330 I ,PRFS ) F4LST03fl 

5, (14(3291, IPIR] F4LST031 

DIMENSION B lR(3),SJR(3).l)rNI3.3).SR(6) , X N O ) , XF O > , ON ( 6) , OF ( 6 ) , F4LST032 

1RESI6 I , R. E D < b ) , HAS ( 3) , I CL AS I 4 ) .NflANtlO) ,Nl)( 3) ,NES< 3) E4LST033 

EQUIVALENCE IAA 1200) , I ONE ) , I A6f 201 I , 1CN) , I AA1P07) , I.M) , I AM 2031 , A$T?4LST034 

H , I AA ( 204 Itl NOON ) , I AAI 205 ) . ABF), (AAI ?06I»ICLA),IAA!207) ,[M£LJ, F4L STHTS 

71AAOOB}. IM), I AAI 209 I, ICI ,(AA(?(0|, ICON), I AA OH ) , ANGL F J , ! A A I ? I 2 ) , F 4|.S r D36 
3 I CAS) , IA4 1213) , IF ) , ( AA( 214 I ,NB) » < AA(Z15| .MR | f4LSTn37 

4. IAAI216), IKOT), I AAI217).BST) E4LST038 

EU1JI VALENCE 1 A A | 22 0 ) , B I R J , [ A A ( 22 3 I , S I K ) , I A A ( 7? 6 I , 01 N ) , I A t ( 235 ) , SR ) E4LST03y 

I, (AA I 241 ) ,XN) , ( 44(244 | , XF ) , (4A( 247 I , ON ) , ( AA ( 261 ) , OF I , ( A A ( ?59 ) , RF$ } F4LST04U 

2 , IA6 I 265 ) ,RFnj , IAA (271 ) ,RASl » (AA< 2741 , 1 CL AS I * ( A A I 270 ) , NRAN ) E4LST04T 

3, I A6( 292), Nil), (AA (2951, NFS) F4LST04? 

DIMENSION NEL I 20. 17) .MAC 14,4.20) ,1WG(90),DO( 6,61 ,A(90,7) ,H(H,R) , F4LST043 
ICI9,2),FF II ) , NS T T ( 1 DO | , MSET { 1 00 1 ,W(3,3) E4LST044 

EQUIVALENCE 1 A A | 14000) , FF ) , (MU I 1 ) , JPll , I NIK ? ) , .IM1 ) , ( N1J I 3 I , JS 1 ) E4LST045 
EOU I VALENCE < FF (1) , NE U . I FF ( 34 1 I ,NAC > , I FF ( 661 1 , 1 W« ) . | F F 1 7 5 1 ) , DO ) . F4LST046 
1 (FFI787I ,A) .(FFI1417) ,R) .) FF(14«1 | ,C) ,( FFI 1497),NSFTI, (FFI 1 597 ), F4LSTD4/ 
2MSETI , (FF 11697). M) 

OIMFNS ION Ul ?, 5 I ,C0 I S ( 3 ) , CROT ( 3 ) ,(>DIS(3) .OROTl 3) ,r>COR( 3) 

EQUIVALENCE (X(t ) .O.DCUR), I X f 4 ) , COI S I . ( X ( 7 I .CftilT), I X I I O I , DO I S I , 
l I X ( 1 3 ) , DHOT ) 

FOIJ I VALENCE I N£ S U ) , JMM ) , ( NE S 1 2 ) , JMR J 
JMXsJHH+JMR 


132 

135 


162 

163 


162 

163 


1U5 

206 

20/ 


ICAS- ICA5 
ICONN-lCnN 
IERR-0 

DO 6 J - i , J MM 
DO 6 J-I.JMX 
B 1 I , J I =0. 

DU 7 K = 1 , I CONN 
XMX-1WGIK I 
DO H L = 1 , K MX 

fl ( I , J>=B( I ,J l + A IK, |)*AI K, J I 
CONTINUE 

IF (J-JMM) 61.61.6 
ft t J, I ) -R ( 1 , .1 ) 

CLINT IN HE 
DO 10 I = l , J MM 
DO 10 J-l.JMR. 

JC” J+-JMM 

C( 1 , J)»B I ! , JC 1 

CALL I NV [ (( , JMM, C . JMR , OE T ) 

REARRANGE STRAPS 

GO TO I 1 1 , 12. 13,20, 15, 16, 20,211) , ICAS 
C(4.1 )»0. 

JMM*4 
GU TO 20 
DO 121 1=1,3 
C (I . 2 > »C I 1 , l ) 

ci i .mo. 

JHR^2 
GU T D 20 

IF(XN(1|) 131,131,132 

C(4, 1 )=C I 1 r l ) 

GO TO 133 

C ( 4 » 1 )*UN< 1)/XN( l)-DT*AL3 

JMM=4 

GO TD 2D 

IF ( XN ( 1 ] ) 152, 152,151 

c(2» i > = ir.nis ( l )*niNi i , i ) -cm s< si^dim ?, 1 n/xNm-0T«AL3 

Gfl T (I ! 51 

c i? ,1 ) = (dois ( I )*niNi i , i ) -o ii i s { 3 ) 4 1 j i n 1 2 , 1 1 ) /nr.r>Rii)-r'T*6L3 

JMM=2 
GU TU 20 

IF (XNI 1 ) ) 16?, 162,161 

C(2 , 2)--QN< 3 )*DIN( 1 , 1 I /XNI 1 I *UG#Al,3 

GO TO 163 

C (2.2) — — DR Cl I ( 3>*01N{ l , 1 ) /l)COR( 1 |+0 C*ai3 

GQ TO 15 

CONTINUE 

IF (GET) 105,1000,105 
IF IINP-2) ?05,?06.?06 

WRITE OUTPUT TAPF 6 , 207 , BS T , J M» . JMR , lig T , [| C { I , J I . I = I , JM* ) , J = 


F6LSTfi4B 
E4LST049 
E4LST050 
F6LST051 
P4LST05? 
E4LST053 
F4LST054 
F4LST055 
F41.ST056 
F4LST057 
F4LS TOSS 
F4LST059 
E4LST060 
F4LST061 
F4L5T06? 
E4LST1163 
F4LS TO/,4 
F4LST065 
F4LST066 
F4L.ST067 
P4LST06H 
F4LS T049 
F4LSTO70 
E4LST07) 
F4LST072 
F4LST073 
E4LST074 
F6LST075 
54LST076 
F41.STO/7 
F4 LST07R 
F4LST079 
F4|.ST(lftO 
F4LST0R1 
F4LSTD32 
F4LS (083 
F4LSTDH4 
F4 L ST0fl5 
E4LSTDP6 
E4LSTOB7 
F4LST nftB 
F 4LST0R9 
F4LST09II 
F4LST0P1 
F4LST/19? 
U4LST093 
F6LST094 
F4LST095 
E4LST096 
F4LS109T 
F4LST098 


F4LSTir>[> 
F&LST101 
C4LSTI 02 
. .1 MR ) F4L S7 1 0 3 


FORMAT (15X.A2.3X.40HI1EST FIT STPAJN TFNSUR COMPHvFnTS FULlfTW, 14, F*LST104 
13M X ,Il,5X,4H0ET = ,E11i.7/lBX,6F15.5) E6LST105 

205 RETURN F4|.S»l06 

lOUO IERR-=1 F 4|_ S T 1 07 

GO TO 105 R 4f, ST 1 OB 

FN1> F4LST1D9 


1 PA 


I -JV 
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Table VII-70. Source program listing of subroutine MDIN (Link 4) 


F6M|>NOOO 

pi-MDNDCU 

F4MI1N002 

F4NDN004 

F4M&N005 

F4«nN0O6 


* LABEL 

CE4i«i[)N 

SUBROUTINE Mil I N 

C Oft TENTS LOCAL AXES PROPERLY AT A BOUNDARY NOJF IN S HELLS 

C TU ROTATE LOCAL AXES IDlN) SO THAT KS1 15 IN 71A-BIR PLANF 

01 HENS I ON IAI 1 ) ,A6ll I , S< 1 ) ,Nl »> ,021 I 21 ) .033(3 . 3 NEP? 13,31 

i t pi 24) ,ov ( 2 * >,x(AUY(fl>»2<fl>,xr>m ,yii( 7 p ,zo( 7 > ,r,i n i 

COMMON i A , A A 

EQU7VAI PNC El I A , AA ] * ( P2 1 , D33 N ( 02 1 [ 1 0 N F 22 N ( 02 1 I 19 I , E ) . (f>? L ( ?0 ) , G I F4MnN(P07 

EQUIVALENCE I 1A(1 I ,INI , I ! A(2I , IRN)i I TMHi If I . I IP), (lAOil , F4MnM(Klft 

1 1 PftS ) , { I A ( AN 1 TYPE ) * I 1 A I 7 > , I HAT ) , I 1 A I 8 | , I0E0 ).MAI9],lNX).<IAIK>). E4MDNn09 
2IH), [14(111, IB), (|A(17), IMMX),( l A ( 13), JMMY), I J A [ l 4 P , 1 MM? ] , I I A I l 5 I , EAMHNOIO 

3 IMF] I , 1 I At 16 ) p I ARE ) , II A I 1 7) ,N 111 I , (I A( ?5 ) * M I . ( ! A ( ?h ) , I T Y > . ( 1 A ( 27 K F6MDN0 11 

4ISTRI ,( IA(28 > , IFLTN ( IA(29P .ITEM) , I IAI30I.IT1C), (JAI31 I , IMFT), I4MW0J2 

5 ( ! A I 3? I , ISOM I . < J A< 33 > , 1 NO I , < 1 A ( 34 ) , 1 *S I p I 1 A I 36 1 . I DS 1 , I I A { 37 ) , F4MONOI 3 

61 ORD ) , ( I A ( 3fl ) , I0RD1 I, 11 Al 391.ACEL I. ( I A ( SO ) , J 1 ) , ( I A I 51 I ♦ J ? 1 * FAMONCIIi 

7 I I A I 5?] , J3) f (I A( 53) ,J4| , ( I A( «?A ) , JS ) , U A I *>51 . J6> . MAI 56). J7>. II A I 57F6M0N01 5 

Bl , JB1,UA(58 > , JTY),(IA( 59 I , I BBI , ( IA( 60 ) , 1*01 , IJA( M ) , 1 IP) , I U 16? I . F4MON01 6 

91 I A ] „ ( I A ( fa3 ) , I DTJ t ( I At 64 1, 10Y1 ,<IA< A$> , ITE I . ( IA( 41 1 , 1 TAP I 

ECU I VALENCE ( J A < 66 ) , I C AR ) * I 1 A f 67 » , TCTX 1 , I I A ( Aft I , IC 1 Y ) , M A [ 69 ) , 
lie 1 Z > , II A 1701 . If.F 1 I , f I A f 7 1 ) , I XX I , < 1A ( 7?) , IVY I , ( 161131 . IZZ ) , 

21 IAI 74) , I IC), 11 A I 761 , IDEF 1 . UA|76] , 1ST), I TM77), US) 

3, < 1A ( 78 ) , I OEM) , I I A I 791 ( 1 EUR I , ( A A I 80 ) ,TF) , (AA (Hi) ,0T > , I AM ft? I ,0G> 

41 AA183NAL1), ( AA(84), AL2) ,( AAlflbl ,AL3), I AB(86P,rj21), (AA(in7| ,P), 

SI AA(13L),0VI ,( AA(155NX),( AAI 163),YP ,1AAU71 ) ,7) ,UA| L79) ,XI>) , 
6IAA11B6),YDP, 1 AA(193),ZDN I AAI351 ),SI . (AM40) ,2GEMJ 

7, ( AA(42), INPN(AA(431, [PBGP, (AA|44| ,TPEN) p I AAI4SI ,CONS>, UAI46J , KIP4MnN0?S 

fl), [ AA(47l ,G1I , ( AA ( 48 ) ,G2 > . < 64(491 ,G3I F4M0NO76 

6 001 VALENCE I I A ( 349 > t N 1 1 C ) * { I A< 348 P , 1 SU7 ) , I I A l 347] » I SOY ] , ( IA( 346) E4N0N027 
NISO?) t l I A 1345) ,.I9N I !A{3«4}*J10>«< IAI 343NJVRSN MAI 342N JSDY) E4MDN07B 

2, I I A { 34 1 } , JSUZ J , ( I A< 340 P , J ARE ) , I IM339),J MM X P ♦ { I A I 33H ) ,.JMMY) 

3, (I A I 337) , JMMZ ) . l I A (336 I » JHF I I , I I A ( 335 ) , 1 T A$ ) . (I A ( 334) ,102) 
tfj [ I A { 333 } , 1 PR P i ( 44(332 ) , MGY 1 , ( AA ( 33 L ) ,DG7 1 ♦ ( 4i( 330) ,PfiF5 I 
S, I IAI329N1P1R) 

DIMENSION BIRO), SIR(3).IHN 13,31 . SR I 6 I . XN I 3 > , XF (3 ) , ON < A I .0FI6I , 

1RE5(6) , RED I 6), BAS I 3 I , ICL A S I 4 ) , NEJ AN ( 1 0 ) , NIK 31 ,NFS(3I 
EQUIVALENCE ( 4 A t 200 P , [ONE J , I AA(201 1 . ICN) « I 44(702) , l.M] . [ AA < 203 P » ASTF6MPN035 
1 I , (44(204) , INRUN), <AA< 205 I .ARE) , [ A A [ 206 1 , J CL M . ( A A I 707 ) . I *EL J , F4M0N036 

?{ AAI20B) „ 1M) , I A A [ 20 V ) t If.) . I AA( 210 I , ICON|, (44(711), 4NGLT I , [ A A f 2 1 2 ) .F4MON037 
3JCAS) , (AAI213NIE) , I AAI214) ,NH). IAAI21S] ,MR) E4MDN038 

4 , I 461 216). I ROT ) , t AA [ ? 17 I . BST ) 64M0NCI39 

F01I I VALENCE (44(2201 , B 1 ft ) ,(461223) .SIR I, ( 461 226) , I) IN ) , ( 46 ( 235 ) , SR ) E4MDN04n 

1, 166(241 ),XN) . (6A| 244 >,Xf I, ( 46 I 247 ) , (IN ) , 164(253] , QF ) . ( AA ( 259 I , R*S ) F 4MON041 

2, ( A6(?65),REnN I A A ( 27 1 ) . PA S ) , IA6I274). ICL&S) ,(46(278) ,MRAN) " J " 

3, I 66) 292 ) ,NI>) , ( AAI 295 NNES] 

DI MENS ION NEL I 20,171 .MAC (4,4,20 P,lMG(90).nn(fiih)pfll90,7),filB,PI, 
1C(B,2P,FFI1),NSET(1UO),MSET(100),W(3,3) 

EOU I VALENCE I A A I 14000 ) , E P ) , [ NU ( 1 N JP 1 I , ( Nil ( 2 ) . JM1 } , ( N! I ( 3 ) t .PS 1 I 
EOU I VALENCE [FFILNNELN f FF ( 34 1 ) , MAC ] , f F F ( 66 1 P, IWGJ . [ F F ( 7 5 1 I ,00] 

1 IfH 787 ),A), IFF I 1417),0) ,(FFU4R1 ) , C P , ( f F I L49? ) , N$6 T ) , ( FF ( 1 597 1 , 

2MSET > , I EF I L697 ) ,W) 

DIMENSION XU (3) ,ETA(3).ZT4|3> 

EQUIVALENCE I 01 N ( 1 ] , X 1 I ) . I DlN I 4 ) , 6 T6 ) , ( l)I N I 7 ) . ZT6 ] 

C SET INDICATORS TO (LOCAL IS DIFFERENT THAN OVERALL) 

1 ROT = 1 
BST-2H** 

C SEE IF A SOLID 

IF (1CA5-4) 33,31,33 

C 501.10 CASE. FIND THE AXIS WHICH MAKES LARGEST ANGLE WITH R I R 

31 IF (ARSHHIRIII > “ABSF l 61 R < 2 1)1 315,315,316 

315 IF (ABSFIBIRI 1 I )- ARSF f H I R ( 3 I I) 31N3LN313 

316 IF (ABSF|BIR(21 ) -All SF IB) R ( 3 1 ) ) 312,312,313 

311 CALL VECT(ETA.&1R,XII) 


F4MPN017 
F4MDN0 I B 
E4MDN01 9 
F AMITM02 0 
F4MDND21 
EtHf»N022 
F4MDN073 
F4M0N026 


F4MDN029 

F4KDN03O 

E4MF)N0.n 

E4H0N032 

F4H0NO33 

F4KDN034 


GO TU 35 

312 CALL VhtT( SJR.BIR.ETA] 
ET A ( 1 1 =S IR 1 1 ) 

ETA ( 2 ) =S I R ( 2 ) 
ETA(3)=SIRID P 
GD TO 35 

313 CALL VECT(ETA,B1R,ZTA) 
35 CC«N 

CALL JNmETA.CC ) 

CALL VFCT (4T4 .B IR, ETA > 
CALL UNIT I £T A ,CC ) 

CALL VECT (XI I ,ETA,ZTA) 
CALL UNI T I X I I »CC ) 

GO TO 22 

C NON- SUL 1 U CASE 

33 CC“N 

CALL VECT (FTA,2TA,BIR) 
CALL UNIT (ETA.CC) 

CALL VECT (XINFTA.ZTA) 
CALL UNIT (XINCCI 
22 RH TURN 
ENO 


F4MDN042 
F4HON043 
E4MDN044 
64MDN045 
F4(viON046 
F 4MJN047 
F4MDN048 
E4M0N049 
FAM0N050 
F4M0N051 
F4HDN052 
F4MIPN053 
F4MDN0S4 
F4MDNCIS5 
F«MflNf)54 
F4MRN057 
FA MON fl 5 ft 
F4MDN05S 
6 4 MONO 60 
F4MHN06 1 
F4M0M06? 
F4 MONO A 3 
E4MDND64 
E4MI1N065 
F4M0NO66 
F4M))H*067 
IrAMnNOAft 
F 4MDN0 AV 
E4MPN070 
f4MI>N071 
E4NDN072 
F 4MDN073 
F4MDN074 
F 4 MONO 7 5 
F*M0N076 
E4MDN077 
64MDN078 
F4MUN079 
?4Mr)Nn«o 
|4MnN0Hl 
F4MDNCSR? 
F4MDN083 
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Table VII-71. Source program listing of subroutine META (Link 4) 


CE4MET R4METOOO 

SUBROUTINE META E4MET001 

C TO GENERA P E MA I F R 1 AL MATRIX 1)0 IN THF ORDER OF 1 , 2 , 1 2 ♦ 3 , 1 3 , 23 E4M6TQ02 

C IN LOCAL, COORDINATE SYSTEM E4METQ03 

DIMENSION I A < 1 ),AAin,S(n ,N( 8), 021(21 1,0331 3. 3 ) . E22 13,3) EAMETOHA 

1,P(24),UV{24),X(8J ,m>,Z(8I . XD< 71 , YDf 7 1 ,ZO< 7) , GH) ) f • 4 M E T 0 0 5 

COMMON I A * A A R4MRT006 

E 00 I VALENCE (I A, AA I , (1)21,033) , f 1121 I 10 I t E22 I , ( 02 H 1 9 J , E I . < 02 1 I 20 ) ,G)E4MET007 
LrOlll VALENCE ( IAU ), IN), I IA(2) ,IBN) , I 1AI 31 * IT), I TAtMtlN ,{ IA(5I , EAME TODH 
llPRSMf lAffiKITYPE),nA17),IMAT),IIAISI, IDEG).< lA(9l, INXI ,( IA(10),F4ME1009 
2IH|,U4|11M0),IIAU2), I MMX) , ( IA( 13 ) , I MMY ) , I lftl 1 A) . I MM2 J , I JAM5 ) ,E4MET010 
3IMFM t< I A (la > . I ARE J - { [A<1?),NI 1 ) I, I IM 25 ) ,>«), I ] A (26), |TY| , { I A ( 2 7 J ,E4MET011 
41 STR} ,(14( 28 ) , IELT) , I I A I 29 ) .ITEM I , II A (30 I . I T 1C I . ( 1AI 31 ) , 1MET) , E4 ME TO 12 
5 ( I A ( 32 ) , I SUM ) , I I A ( 33 I , I NO ) , ( I A { 34 J , T MS > , I I A f 36 ) , I OS ) , { I A 1 37 I , E 4M£ TO L 3 

610RDI»I jAI3B> t IQR[)l) t lIAI39J*ACEL ) . U A ( 50 > T J 1) , U A I 51 ) . J2 I , FAME TO) 4 

7MAI52) f J3I, (IAI53UJ4), IIM54I.J5I , ( I A I 55 J ,J6>, I IAI56I , J7>, M A ( 57E 4ME T(U 5 
81 ♦ JBJ , ( ]A ( 5a > , JTY) . < J Al 59 ) , Iftft) , M A t 601 * IftO) , I I A I 61 J , Tl 0 J * l I A ( 62 ) , E4MET01 6 


E 4Mf- TO L 7 
E4MET018 
EfcMETOI 9 
F4MET020 


EAMET029 

E4MET030 

E4MFT031 

EAMPT032 

E*fMfiTy33 

E4MET034 


9) IA|f I 14(63) , 1 DT ) , I I A I 64 I , F [IY > . I 1 A I 65 ) , I T H , { 1 A ( A 1 P , I TAP) 

EQUIVALENCE < 1 At 66) , ICAR) , <[ A (67 I , Id X I , ( I Al 68) , IC IY> * ( I A f 691 , 

UCIZI ,1 ]A<70>, ICFM, MAI 71 ), IXXJ, MA(72 |,IYY) . I JA(73), IZZ) , 

?( IA(74 >, LIC),{ IA(75> , IOEF), I 14(76} t ]ST| , MAI 77 ) . I IS) 

3. 1 I A ( 7 0 I , I GtM 1 , I I A I 79 1 , 7 E RR J , f AA ( 80 ) . TE I , ( AA ( B 1 } , 0 Tl , f AA ( 82 ) , MG ) , F AMF 1021 
4f AA(R3 ) ,AL1 > , ( AA ( $4 > , Al2) , <AA<85 I , AL3) , I A A I B6) , U2 1 ) , f AA ( 1071 , P ) , E4MFT022 
5(44(131) ,UV] , ( AAf 1 55 ) ,X), I AAf 163 > ,Y) , I AA| 1 7 I ) t Z ) ♦ lAAf 179) , KOI ♦ F4MET023 
6( AA t 186) , YD) , (AA (1931, 2D),(AA(35]J,S),[AA< AO ] , ZGEMI E4MET024 

7, I AA I 42 I , IMP) , I AA{43| , I PBG ) , ( A A I 44 J , I PEN) r I AA (45 I ,CDNK I , (AAf 46] , IIPE4METR2 5 
81 , <AA|47),Gl), I At 1481 ,02), IAA149I ,G3) F4MET026 

EQUIVALENCE (I A ( 349 ) ■.NT IC ) , ( ) Af 348) . I SOT) , ( I A ( 347 >, I S DY ) , I I A I 3’. b I (-4MET027 

1. I SDZ J , C IAI345). J9) ,{ IA1344I ,.110 I ,< 1A(343I .JPRSI , f IAO42UJS0Y I E4MET078 

2. 1 14(341), JSl)Z ) « ( I A ( 340 1 i J ARE > * I ]A( 339) , JMHX> , ( I A ( 338 I , J HM Y ) 

3, I 1AI337UJMM/I.UA(336I,JMFI ) , ( 1 A < 335 I f I TAS I , I I A I 334 I . 1 1)7 ) 

4. 1 I A f 333 1 , I PR ) , I A A ( 332 J , DGY ) , ( AAf 331 ) ,0G2 ), IAA| 33D ) ♦ PRES > 

5. 1 I A { 329 ) tIPIR) 

DIMENSION 8 1 ft ( 3 } , £ 1 R < 3 I , 0 I N { 3. 3 I , 5F. I 6 I , XN I 3 J , XF ( 3 J , DN ( f, ) f RiF t 61 « 

IRES<6I ,RED(6),BASf3), ICLA5 ( 4} ,N8ANU0) «Nllt3) ,NESI3P 
EOUI VALENCE IAAIZOO),inNEJ,(AA(20n,ICN), f AA I 202 ) , LM I , ( AA f 203 ) , A STE4 ME T035 
1 ) , I AA [ 204 ) w 1 NBUM ) « I AA 1 205 1 , ARE | t ( AA ( 206 1 , 1 CL A U < AA ( 207 I t I MF L I , F4MET036 

21 AAf 208), IM I, f A A I 209 ) , I C ) < IAAI210), ICQNJ, IAAI211 ) , ANGLE I » UA ( 21 2 ) , E4MET037 
3 I CAS ) i I AA| 213) , IE). I AAI 214 ) ,NU| ,(AA{ 215 I .MB) F4Mtl[)3S 

4, fAA(216),IR0T).(AAI2l7),BST) E4MET039 

EQUIVALENCE I AA 1220) . ft I ft I »{ AAf 22 3) , 51R > , (AA| 226), DIN), IAA 17351 ♦SR)E4MET040 

1 . f AAf 241 ) .XNI , ( AAf 244) , XF |« (AAf 24 7), ON ] r { AA { 2 53 ) , QF ) , f AA ( 259 > , RE S I E4MET041 

2. tAAf265l ,REn) , IAA(271 ),BAS) ,( AA(274| t JCLAS) , (AAI27B) , NR AN ) S4MET042 

3. ( AAf 292 ) . N 1 1 1 , ( AA ( 295 ) , N6 S J F4WET043 

DIMENSION NEL I 20, 17), MAC (4 .4, 20 I . ! HG 1 90 I , DD I f>, 6 ) , A ( 90 , 7 ) . 8 I 8 , ft ) , F4MET044 

lC(0,2),FF(l),NSETf 100),MSFI UOO) f W(3.3) F4MET045 

EQUIVALENCE I AAI 14 000 I , FF | , ( Nfj ( 1) , JP 11 , ( NUf 2 ) . JK1 ) , f NU ( 3 ) ,JS1 1 E4METQ48 
EQUIVALENCE IFFID.NCU ,<FP| 341) .MAC) . I FF| 661 ) , I WG ) , t FF f 7 51 } , DO ) , F4MET047 
KFFf7B7) .A), |FF| 1417) ,8), IFFI 14H1) ,C| t (FF(1497),MSET), IFf I 1597) , E4ME1048 

2MSET ) , ( F F 1 169? I ,M) 

INITIALIZE 01) ALPHA CONSTANTS 
00 10 1=1,6 
00 10 .1=1 ,6 
DDL I ♦ J|=0. 

AL 1 =0 . 

AL2=0 » 

AL 3=0 . 

INQUIRE THF TYPE AND GENERATE DO IN THF ORDER OF 1.2,3,12.13.23 
IF ( I TYPE- 1 ) 2U.30.40 


ISOTROPIC MATERIAL 
1 IDJ = nD+< I ME 1 — l )*z 
E=AAI I 1DI+1 ) 

C*AAI 111)142) 

1 I Alai IA+IMFT 
AL L = AA ( 1141) 

AL2=ALl 

AL3=ALl 

PU=E/I2.*G|-1. 

IF ( ISTR-1) 209,210,209 
IF (ICAS-31 208,210,208 


F4MET049 
E4MET050 
'E4MET051 
F4MF ) 052 
E4MET053 
E4MET054 
F4MgT055 
F4MFT056 
E4MET057 
F4MET05G 
Fame 7059 
E4MET060 
64MET0B1 
E4MET062 
E4MFT063 
E4ME 1064 
E4MFT065 
E4MFT046 
E4MFT067 
F4MFTD6B 
F4MFT069 


208 IP <1CAS~4) 207.210,207 
207 £1 =F/| 1 ,-PU*PUI 

E2=E14PU 
K = 2 

GO TO 220 
210 K=3 

E 1 = E *«c | L.-PU)/f ( 1 * — 2.*PU)4( l » 4pU ) ) 

E?=fc4HU7 ( I 1.-2. *PU|* ( 1 »4PU)) 

220 DO 201 I-1,K 
DO 201 J=r.K 
IF (1-J) 203,202.203 
202 DO I I , J ) = 1 1 

001 I+3,J+3J=G 
GU 1U 201 
2U3 D0ir,J)-E2 
?ai CflNTINUt 

IF fK-2) 60,204,60 
204 0016,6 )=G 

GO TO 60 

C OKTHOTROPIC MATERIAL 
30 .1 IAI=| |A4| 1MET-1 )*2 

ALl^AAf IJAI+1 ) 

AL 2=AA I MAI 42 ) 

I 1DI=J ll>+[ [MET-1)49 
DDfl.l J=AA| IIDI+l ) 

DO 1 1 ,2 ) ” AA I I1DI + 2) 

DO < 1 , 4 I = AA ( I IDI 43} 

DD ( 2 ,2 I =A A I I 1DI44) 

Ul)( 2,4) =A A ( I I0I + 5J 
□D(4,4|=AA I | I 0 I +6 ) 

0D1 5,5) =A A ( 1 101+71 
On f 5 ,6 I =AA { I 101+61 
DOf 6,6 ) =AA f I 101+91 
IF (1STR-1I 60.301,60 
301 01)1 l,3)=OOfl,2l 

01) < 2 , 3 I - DC { 1 , 2 ) 

GO TD 60 

C GENERAL HOOKIAN MATERIAL 

40 1 t A 1 = 1 1 A+ ( 1MFT-I )43 

ALL = AA f IIAI+I | 

AL2 = AA f I IAI+2) 

AL3 = AA { I UU3) 

1 I 01 “ 1 1 D+ < IMFT-D'SZI 
DO 401 1=1,6 
OD 401 J=I,6 
I IDI=I 101+1 
401 DOfl , J J = AA I IIDI) 

C OBTAIN THE SYMMETR'IC HALF 

60 DO 61 1-1,6 
DO 6L J= 1,6 

61 DOf. 1 ,11 = 00 1 I, J) 

C ROTATE MATERIAL AXES IF NECESSARY SO THAT THEY COINCIDE WITH DIN 

IF MROT) 71,70.71 
71 CALL ROTA 

C SWITCH COLUMNS AND ROUS 3 AND 4 TO GET THF ORDER 1 , ?, 1 ? , 3 » 13 i 2 3 

70 00 62 1=1,6 

E1=DI)(4, I ) 

00( 4, [ UDOO, I | 

62 00(3,1 UE1 
00 63 1=1,6 
El-ODf 1,4) 

DDL I,4)=D0f 1,31 

63 DD< I , 3 I =E 1 

IF flNP-2) 100,91,91 

91 WRITE OUTPUI TAPF 6 , 92 , I CN ,BST , I ME T , ( ( 00 I 1 , J ) , J = 1 , 6) , I = L , 6 ) 

92 FORMAT [ I 5, 10X , A2, 3X, 57HHAT ER I AL MATRIX f|N 1 , 2 , 1 2, 3 , 1 3, 2 3 ORDER ) 
1 FOLLOWS, MAT, = ,13/(20X,6F)4.5J ) 

100 RETURN 

ENO 


F4MET070 
E4M&T07) 
E4«ET072 
F4MET073 
F4MET074 
E4METD75 
E4MET076 
E4HETQ77 
E4MET07B 
F4MET0T9 
E4Mf TORO 
F4MET0R1 
E4MET08? 
E4H6T083 
£4Minafl4 
£4M6 I0H5 
E4MET0A6 
E4MET0R7 
E4MET0SB 
E4MFT0B9 
E4MET090 
E4MET091 
F4MET092 
E4MET093 
E4MET094 
F4MET095 
E4MET096 
E4MET097 
E4MET098 
EiM£T099 
E4MET100 
E4MET1D1 
F4MFTI0? 
fc4MtTlC13 
E4MET104 
E4MET1D5 
E4NET106 
F4MET1D7 
E4METLD8 
E4MST109 
E4METL10 
F4MF Till 
E4METL12 
E4MET113 
E4METI 14 
F4MFT L 1 5 
F4MF11 1 6 
F4MET117 
E4MET1I8 
E4MET119 
E4MET120 
E4RET121 
F4MF1172 
E4MET123 
E4MET124 
E4MET125 
E4MET126 
F4MHM27 
B4MFT12H 
E4METL29 
E4MET130 
F4MET131 
F4MET132 
E4MET133 
E4METL34 
E4MET135 
E4METL36 
F4MFTI37 
F4MFTI 3B 
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Table VII-72. Source program fisting of subroutine QUAD (Link 4) 


* L Aft El 

CE 4 UAU F 4060000 

SUBROUTINE OUAt) FtrjAOOni 

C FINDS LOCAL CHUR I MATE AXES BY REST FIT QUA DR 6 7 1 C IN SHELLS F 406 D 007 

C TO ESTABLISH D|hH 3 , 1 l AN I) ANGLE BY BEST FIT PljAMMUC SURFACE | 9 MF*nAMin 3 

DIMENSION Ull) ,AA (1 I , S(l) ,N(R J ( 1121121 ) ,n 33 l 3 * 3 ) , E 7 2 ( 3 ♦ 3 ) E 4 Q 60004 

1 , PI 24 ),UV (24 |,X(M f Y{R),ZMn,Xl>l 7 ), 70 ( 71,20 ( 7 ), GUI > F 4 OAD 0 O 5 

COMMON ] A T ift Fi Qfi DO 06 

EQUIVALENCE f I A. 6 AI . ( 021,033 I, (021 (1 ( 1 ) , h ?2 > , ( 02 1 I 19 ) ,E>. (D?l 1201 * II ) F 4 QAD 007 
E 0 UI VALENCE llA(l>,lN>,UAl 2 >,!BN),(|A( 3 ) f IT),(IA| 4 |,iPl,n 6 [ 5 ). £4 061)008 

IIPRS ) , ( IA(fe I , I TYPE ) , U A(?) , I MAT J , { I A ( Ft } . I DEG I » ( 16 ( 9 ), INX ) , ( IAI 10 I .F 40 ADQ 09 
2 lH},UAIin«ia)flIA< 17 ), l MMX} , n Al 131 . IMMYI illKHl. 1 MMZ ) . 11 A( IS) , E^OADOT 0 

3 IMF II , I IAU 6 I , I ARE), UA (1 7 ),N( 1 11 , I 14(251 t*l r ( I A ( 26 ) . I TYl * II A 127 I , f 406 DO l 1 

4 ISTR), | U< 26 ) ,1 ELT), I IA| ? 9 > , ITEMl , ( I A( 30 ) * IT 1 C ) . I I 6 111 I . I MET I , £4060012 

5 < I At 32 I , I SUM] , < IA( 33 ) , INI) ), II A[ 34 ) , TM.S ) . I 1 A| 361 , IDS I » < 1 A< 37 ) , FAUADOl 3 

6 l 0 R 0 l,llA(ia) # irmi)lUUA( 39 ),ACEt |,UA| 5 l>),.PU,nAI 51 J ,J? 1 . F 4 flAr >014 

T( IA (521 ,J 3 I, 11 AIS 3 I,J 4 I, UAI 54 ) . J 5 KUAI 6 SI ,Jfi)T I IAI 56 I, J 71 T I I A 1 57 E 406 D 01 5 
8 I , J 8 I , I I A [ 5 H It JTY ) , |1 A I 591 , IBB ) , II 6 I SO) ♦ I BO) , ( 1 A( hi > , I 101 » ( I A ( 62 1 ,£406001 6 
91 IA) , U* ( 631 , IOT) ,( 16 ( 64 ) , IDYI , ( IA< 65 > , I TE ) , < 16 ( 41 ) , 1 TAP > E 4 QAD 017 

EOIJI VALENCE < I A I 66 I ,ICAR) . U A I 67 ) . I C 1 X I , I I 6 ( t>B I , I C I Y ) . ( I A ( 69 I , £ 406001 A 

UCIZI, I 1 AI 70 ), ICFI I, f IAI 71 ) ,TXX>, UA( 7 ?) , JYY) . ( IA< 73 ). IZZI . K 406 D 019 

2 <U( 74 ), I IC) ,MA< 75 ) .IDEFI ,( 16 ( 76 ), 1 ST] ,{ I A( 7 ?l . I IS) F 40 A 0 D 20 

3 , I ! 6 (?H), IUFM), I IA 179 I, IERR), [ 6 A[S 0 ) f TF.J , (AAtHl ),DT 1 ,(A 4 ( 82 ),nG> , F 40 AFWI 

4 I AA f 83 ) t AL l ) , f AA ( B 4 ) ,AL? I , (A A < 85 > , AL 3 I , ( AA < H* > , 021 } . ( AA l IC 7 I . P 1 , 6 406007 2 

51 AM 131 ),IJV), ( AA( 155 ),X), IAA< 163 ) , Yl, ( AA( 171 ) , Z I , ( AA ( 1.79 I , XI) I , F 4 0 A 002 3 

61 AAnB 6 l,Yni ♦ ( 46 ( 193 ) ,ZOI , ( AAI 351 ) , S) , I AA( 40 ) tZGE M) 64060074 

7 t( 6 A[ 42 )t,INP)tIAA( 43 )t IPBG)* (AA| 44 ) , I PEN), I A 6 ( 45 1 » COINS ] , ( A A ( 6 *) t j UF 4 UA 0025 
8 ) t I AA |4 7 I , (it | , | AA 1 48 ) ,G 2 I » ( AA < 49 > , 03 1 E 40 A 007 6 

EOlll VALENCT ( TA( 349 > tNTIC ) , I 1 A( 348 ), I SDT ) , I I A ( 347 ) , I SDY ) t ( 16 ( 34 *) EAOADI )7 7 
1 , ISDZ) t ( 1 A < 3451 , J 91 ♦ ( T A ( 346 | , JlO ) , I 1 A I 343 ) , JP«S) ♦ I IA( 347 ) , JSOY ) E 4 CAD 02 B 

2 , MAI 341 I ,JS 02 ] ,(!A( 340 ) ♦ JARE ) . I 1 A< 339 ) , JMMX ) ♦ (I 4 I 338 ) ,.)M*Y 1 F 40 A 0029 

3 t( |A( 337 ) , JMMZ) , 1 IM 336 I , JMF 1 ) ,1 I A! 335 ) , I TA$ ) , ( I A I 334 ) , 1 (V 1 E 40 At)O 30 

4 , ( I A I 333 ) ♦ IPKJ , l AA( 332 ),DGY|, ( AA( 33 l ) ,f>G 7 ) , ( A A I 330 ) , PRE S J £ 4061 ) 1)31 

5 , MA( 3291 , 1 P]R) £4040037 

DIMENSION B|Rm,.SIHl 3 ),DINI 3 , 3 ),Sft<(>ItXN{ 3 ! ♦ XF ( 3 ) . ON ( 6 I , OF < 6 ) , F 40 A 0033 

l RES I 6 ), REDO 1 . 1 ,HASI 3 t . JCL AS t 4 ) , N 8 AN I 101 , NU ( 3 I , NES t 3 ) £4060034 

EQUIVALENCE I AA [200 I t I DN£ I , ( AA ( 20 1 ) , I CN ) , I A A l 202 1 , LM > , I 46 I 203 1 , ASTE 6 QAD 035 
1 I . I AA ( 204 ) « INHON) . ( AA< 205 I t ARE I , ( 46(206 I , ICLA I , ( AA( 707 MHEU, F 4060 CI 3 A 
2 ( 66 ( 2081 tlM) f ( AA( 209 ) , I C ) , ( A A I 2 HO , ICON) . IAAI 211 ) » ANGLE) , ( 46 ( 212 ) ,£ 4 QAD 037 
3 1 CAS ) t [ 66 ( 213 ), I E 1 , ( AA ( 7 1 4 I , NH ) t(AA( 2 L 5 ) ,M 8 ) F 4040038 

4 , I A 6 ( 2161 , I ROT I , ( A A I 217 ) ,BSTI E 4 GAD 039 

ECU] VALENCE I AA I 22 DI , H 1 R > , T A A I 2 23 1 , S I R ) t ( AA< 226 I , 0 I M ) T I A A I 2 35 J , SR I £ 4-060040 
1 ,(AA (741 I,XN 1 , (AA (244 I ,XF) t(AA<? 47 ) ,ONJ * IAA( 2 531 tOF) , (6612591 , RE S 1 £ 40601)41 


7, (A6(2A51,RFOt , I AAI271 1 ,BAS )t I 461274) , I CL AS ) » ( A A I 278 ) , N8AN ) 

3,(66 (292) .NO), I AA 17951 , NFS) 

DIMENSION NFL<20,17)tMAC(4,4t20I . IWGI90)tD0(6,6I ,6190,7) ,H(R,8I , 

1C(B,2)tFF| 1>,NS€T(100) ,M5£1 I 10U ) ,YH 3 » 3) 

EQUIVALENCE ( A A ( 1 4000 I , F F ) . (NUU)tOPU, (NUI 21 ,.)Ml 1 , ( NIK 3 I , JSl ) 

EQUIVALENCE (FF(1 I »NEL)t IFF! 341), MAC I » I FF ( 66 1 I , IWG) , I FF I 751 1 , IIP ) . 

1 I FF ( 7H7 ), A ). (FF( 14171, B), IFF ( 1481 ) , C ) , I F r I ) 49 7 I , NSF T I , ( FF I l 597 I , 

7MSFT] ,<FF(1697)tVM 

01 MENS 1 (IN XI N3I,ETAI3),ZTA( 3), 1X5(1,91 

EQUIVALENCE ( DIN I 1 ) , X 1 I I , ( U IN ( 4 ) , £T A ) , (D1N[7 I . Z1 A ) . I A, I) 1 
FIND THE SET OF NODES HJ BE USED ANO LJ ST THEM ]N NSF T ARRAY 
IC“IC 
I M“ [ M 

IE=MACt IM,IC,1 )*1 
K = Q 

DQ 10 1-2, IF 
1ELT=MACIIMtIC,II 
IMS»NEL( IELT,5) 

00 9 J=i, I MS 
K=K+ 1 

MSETI K )=NFI. CiELTiJ + 91 
CONTINUE 

OBTAIN KFNbKAL DIRECTION DF MIDDLE SURFACE NORMAL ON ZD 

I-mSETII) 

CALL FIN0X(1,X) 

] =MSt 7 (2) 

CALL FINOX|l,Y) 
xofD'Ym-xdi 
XOI 2 )=Y| 21^X12 t 
xn(3)=Y!3l-x(3l 
r=WS6TI3) 

CALL FINDXI 1 ,X) 

YD( 1 )=X( 1 1 -Y < 1 ) 

YO(2l=X(2)-Y(21 
YQ( 3) “X ( 3 )-Y ( 3 1 
CALL VECT (zn.xn.YDi 
NR = U 

on 13 l=i ,K 

if ( MSET ( I > 1 13,13,131 
l NUDE=MSET(U 

nb-nb+i 
nsetinb l=NOr»E 
00 12 J=I,K 

IF INODE-MSFT(JI) 12,121,1? 
i MSETI j»=n 
CMNTINUC 
ciiNTrNiir: 

SEE IE THERE ARF ENOUGH NODES 
IF (NB-9) 16,15.15 
not enough, EXPAND the population 
CALL EPAN 

IF (INP-2J 17,18.18 

WRITE OUTPUT TAPE 6t1A1,NB. INSF7( I ) . 1 = 1 ,NH! 

1 FURMAT (20X,47HN0UE SET FOK BEST FIT QUADRATIC SURFACE FOLLOWS, 1 1 OF 4QAD04 5 
1/(20Xt20I5) 1 F4Q6D096 

FIND CHUOr DIRECTION FOR MIDDLE SURFACE NORMAL F4Q40097 

CALL HSSTIZT6.NSFT.NB) F40M1098 


£4060042 
E4OAD043 
F4060044 
E4Q6n045 
C4QADCI4 6 
F40AD04? 
E4QAnn4H 
F60A0049 
F 4060050 
£4 06 DO 51 
£4040052 
F4.Q6DQ53 

F 4Q6 11054 
F4060055 
P 406 00 5 6 
£4060057 
£4040088 
F4QAD059 
F4OAIJP60 
F4DA0061 
E40Ar.)(16? 
F4QAD0A3 
E40AD064 
F 4 06 DO* 5 
F4(jaF)066 
E4UAP067 
F40AD06H 
E4QA0069 
R406D070 
£6041)071 
E4QA0O72 
F 404 DO 7 3 
F40AD074 
E40AD075 
F4TJAD076 
F4QAU077 
F406D07R 
E4QAD079 
F 4()fl DOflO 
E4QAD0R1 
£404008? 
(=4060083 
£4060084 
E4OA0OA5 
F4OA0(l«6 
F4UAD087 
E4Q6D0BH 
F40A0089 
F4Q6P090 
£4040091 
F40AD097 
h 4rjAD09 3 
£4060094 


U-£ I A ( L |**2 + ZTA(2)=*»? + ZTA(3)44? 

IF <l>) 172,171.172 

171 ZT6(l)=ZDCll 
ZTA [ 2 > =Z0( 2 1 
ZTA ( 3 ) =ZD ( 3 ) 

c GENERATE FIRST APHRC1XIMAT ION FOR DIN 

172 ICAI-O 

XII (1 I =R AS I 1 1 
XII I? I =8 AS I ? I 
Ximi=B6SI3] 

?U3 Q= 1 * 

IF (SCAL(Zn,ZT6J > 201,201,20? 

20 1 (>— l - 

202 CALL UNIT ( Z T 6 , Q 1 

CALL VECT (ETAtZTAtXHI 
CALI UNIT ( F T 6 ,0 I 
CALL VECT (XT 1 , FT A, ZTA) 

CALL UNIT ( X 1 T ,0 I 
IF (NH-91 19,20,20 
19 WRITE CIUTPUT TAPF 6,191,ICN 

1V1 FORMAT I I 5, 1 3X, 71HNUT ENOUGH INFORMATION FOR BEST F I T OUAORATIC. 
1EST FIT PLANT IS USED. 1 
GO TO 100 

C SEE IF THIS DIN 15 Ar.CFPlAflLF 

2D ) F I I CA T- 2 1 204,205,205 
c NnT ACCFPTABLEt CONTINUE 1TFR6II0N 

204 L=D 

C GENERATE EQUATIONS FDR THE COEFFICIENTS MF BFST FIT OUAORATIC 

00 25 1=1, NB 
None=NSETt i i 
IF HCN-NODfr) 21.25,21 

21 CALL FlNOXINDOF.XFI 
01) 211 J= 1 , 3 
X[J1=0. 

DO 2 12 K*l,3 

212 X I J )-X( J l + IXH K )-XN(K I I *|) I N | K , J 1 
211 CONTINUE 

L“L t ] 

OILtU=XI 
D(L,2)=X(2 1**2 
H I L , 3 ) =M 3 ) **2 
DIL,4)=X(1 |*XI2) 

IUI. ,51=X(1 l*XI3) 

D(L,6)-X(2J4XI3I 
0 ( L , 7 ) =X ( 1 I 
D(L,fl)-X(2I 
IK L » 9 ) =X ( 3 1 
?‘j CONTINUE 

C CBIAiN I HE l FAST SQUARE EQUATIONS 

DO 28 1=1 ,8 
00 27 J = 1 , 8 
81 I,J)=0, 

00 291 K = 1 ,1 

291 B< 1 ,J)=H( I, J )+D(K, 1 |*0(K, Jl 
2/ 8( J, I l=B( I , J 1 

C( 1,11=0. 

DO 26 K=1 , L 

26 C( I , 1 )=C ( I i l 1 +CHR, I dD(K,9) 

2d CONTINUE 

C SOLVE FUR THE COEFFICIENTS 

CALL INVIRtR t C,ItOET) 

IF (DET) 29,19,29 

29 ZTA ( 1 1 -XI 1(1 )*Cl7»ll+tTMLI*C(8,ll-ZTA(l) 

ZTA( ? )*X1 I ( 2) *C I 7, l»*FTA(2)*CI8, l 1-2TAI 2 ) 

Z TA ( 3 I = X J I <3)*CI7,l)+ETA13l*C(fl,l I -2 T A C 3 J 
1 CA T= I C AT+ L 
GQ TO 203 


£ 406 D099 
F4QAD1 00 
F406DL01 
F40A0in2 
F 40A[) 103 
F4QAD104 
F40AD1 05 
£4060106 
F4D6D1D7 
f4pAniOR 
F4TM0109 
F4DATU 10 
F40AD1 1 I 
F40AD) 1? 
F4QA0113 
F40ADU4 
E4QA0H5 

F 40 AD 1 16 
F4Q60U7 
£4060118 

PF40Anil9 
F4QAD120 
F40AD121 
F4UAD1 22 
£4060123 
F4QA01 24 
F40AD125 

£40401 ?ft 

F 4Q6 D 17 7 
F4QAD1 28 
£4060129 
£4060130 
£4060131 
F4()Arn 32 
P40AD1 33 
F4CAD1 34 
F4QAD135 
E4060L36 
E4BA0137 
E40601 38 
E4Q6D139 
E4Q601 40 
F40AU141 
E4QAD14? 
E40AD1.43 
F 4 t)A D1 44 
£4060145 
F : 4HA01 4fe 
E40AD) 47 
F4DA014P 
F4QA0149 
E40AD15D 
F4QAD1 51 
E4Q6Q152 
F4U6D1 53 
F4QA0154 
F40AD155 
E40AD156 
F406IU57 
F40AD158 
F40AIJ1 59 
£406017,0 
640ADU1 
F4QA0162 
F 40 A I) 1 b3 
E4QAH1 *4 
F40AIU 65 


OIN ACCEPTABLE. SEE IF PRINCIPAL CURVATURE DIRECTIONS ARF R EQtJ I REDF40AD166 


6NC,LF=0. 

IF I IHI R-l ) 100,206,206 

YES, ROTATE DIN AROUND ZTA UNTILL X|I,ETA PRINCIPAL 

FC = C I l,n-C(2,l ) 

ERsABSF(C( 1,1 ))+A0SFIC(2,l ) ) 

ER=ER*l.E-2 

I F (A8SFI FC )-ER ) 24,24,34 
ANGLE-ATANF (CI4.D/FC )/2. 

GO TO 341 

angle=o. 

CES=CC)SF (ANGLE) 

SEN=SINF(ANGLE ) 

COMPUTE CURVATURES 

Xtl T-CES*CE5«C< l.LJ+SE«*SEN*CIZ'l)*2.*CES*5EB*G[4,l 1 

X (2 ) =SFN65KN*C (1,1 I +C ES*CE S«=C( 2 . 1 1-2 ,*CES4SEN*C I 4 , 1 ] 

FIND SMALLER CURVATURE OIRFC1ION 

IF <ARSF[X( 1) )-AB5F(X(?) J 1 343.100,342 

FC=C ES 

cfs*-sen 

SEN-FC 

BRING XII ON SMALLER CURVATURE DIRECTION 
00 35 1=1,3 

XI I)=CES*DIN( 1 ,1 I+SFN4DINI 1.21 

Y I I ) =CE S*OI N ( 1 , 2 >-S€N*0 1 N ( I , L 1 

CONTINUE 

DU 36 1=1,3 

□ IN I 1 , 1 l-XI I I 

DIN I I,Z1*Y(I I 

ANGL€= ANGL £*1 HO . 73,14159 

RETURN 

END 


£40601 67 
£4QA D1 7, B 
E406D169 
E 4(0 AM 1 ro 
F40AU1 71 
F40A0) 7? 
F4 D6 01 73 
F4Q6DL74 
E4QA0175 
F4UAIH76 
£4.(j/iUi 7 / 
E40ADL78 
F40AD179 
F4QAD180 
E40AD18L 
F40AD1H7 
F40AD1 83 
E4QAD184 
F4060185 
£4060186 
£40 A|> l BY 
F4QAD1 88 
F4Qf\0lB9 
F4O6D190 
F4QAD191 
F 4QAD192 
F4QAD193 
E 4(J A [J 194 
E4UA01 95 
£40flni 96 
£4UA 1)1 97 
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Table VEI-73. Source program listing of subroutine REVO (Link 4) 


* LABEL 

tiRrvono 

SUBHCMiUAJE REVO E4REV001 

C PINOS LOCAL AXES ftv REST FIT <*. TH flRUFR POLYNOMIAL IN SHELLS OF KVF4RFV002 

C TO FTND D IN { 3 , 3 I FOR SHELLS OF REVOLUTION F Y 4TH URDFR Ml YNMl FIT E4REV003 

DIMENSION IMlI ,AAI I ),S(1 1 ,N|» I ,I>2U?n,D33l 3. 3 > , F?7 I 3 , 3 i EAKEVOOA 

It F(24I.UVl24l T X{R),VIBI t ZiH),XD(7}.Vn(7),2U<Y)«R| (1 J F4KFVnn 3 

COMMON I A , 4 A E4RFVDQ6 

EQUIVALENCE M A, AA), 1021,033). I i>?1 1 10] ,P22 1.1 1)7 M LVI «F I » (021(201 ,G)E4R F vOO? 
EQUIVALENCE llAtl},lN1 t (TA(2l,IRN>,(IAl31,m.lUl4),TP).llA|5), Earf v(JOB 
1 IPRS), 114(61 , I TYPE I ,( IA17I . I MAT I .( I A ( 0 ) , I OFG ), I I A I 9 ) , INX J , (I A I 1 O ) ,F4«EV(]09 
?rHi,iUiin,ifn,MA<m, inmx) , I iai 131 , immy) , u a m 4i ♦ immz i , i iai 1 5 > ,f<*rfvoi o 
3 I MF I ) , ( I 4 I IM , J ARE I , (I Al 1 ? ) ,NU I ) , I T AI25I ,M | f || A ( 2fi) , I T¥ ) , I U I 27) ,£4R EVfU 1 
4fSTR)*( IAI2BI ,1ELT), I IM29I , ITEM), ( IA<30) , ITIC ) , I 1 4(31 >, I MET), F4RFV012 

5 I 14 I 321, 1 SUM) ,UA1331,1N0|,UA(34) . INS) *<1X061 , IDS) ,1 IA<37) t e4KfcVD13 
6|(JRD),f IAI38I .lUftni) , (IAI 39), ACE L ) , I I A I 50 1 , J l ) , I l A ( 5 1 1 , .12 1 , E4RFV014 

7I1A152 I,.I3), t IA(53),.I4) ,(IA(54) , J5), (IA( 55) ,JM ,( TA(5G) ,J7] ,< I A { 57E4RFV01 5 
8I,JBJ,{ lA(58J,JTY],MA(5*)>.ie&I.MA(6(]),IBO>,l[A|6l>,rrOI,< I A ( 67 > , E4RE V01 6 
91 Ml ,< 1M63), IOT I ,< 1A<64), IOYJ , I |A(65) ,ITF), I I A|4ll .1 | AP) E4REV0L7 

EQUIVALENCE < I A (661 , ICAR] , ( I A < 67 ) , IC 1 X > , ( I A I 68 ) . I C I Y } * I 1 A I 69 1 , E4RFV018 
1 1CIZ I r ( 1 Af 70 I , ICFI > , II A| 71 ] , IXX>, ( Ml 72) . 1YY J , UA( 73) , IZZ ) , E4REV019 

2( rA<?4>, ( 1C), (I A<75), IdEF), UA(761. 1ST ) , I TA| 77] , I [ S J E4REV020 

3, I 1AI7BI » 1 IJ E M ] ,(M(79},l£RR) . ( A A ( HO I , TF 1 , ( AA { fl 1 J , DT ) . ( AA I B? I , OR > , E4REV021 
4 ( AA ( 83) ,AL1 ] , ( AA< 04) ,AL2 I , ( AA| R5> ,413 I , ( AA< 861,021 ) , I AA I 107 ) ,P) , E6REV022 
5( AAI131 ) ,UV] , ( 44 I 1*5 5 ) 1 X ) , I AM 163) , Y ) , I AM 171 1 , l ) , 1 .441179 I . XD> r E4RFV023 

/>( AA( 186 NYD1 , ( AAU 93 >,ZD) , UA | B51 ) , S > , I A A I 40 I , ZGEM) E4HFV024 

7, ( AA (42 ) , INP J , |AA (43), tPBGl, I AAI44J , l PEN } » { A A { 45 I , CONS I , { AA ( 46 ) , IUE4R6V025 
8) , |A4(4 f) .G1 } , (4A( 48 ) ,G2 > , I 44(49) ,03} &4REV026 

EOIH VALENCE ( 1 A I 349 ) ,NT 1C 1 . (I A ( 348 I . I SDT I , M A f 34? I , 1 SOY ) , I I A I 346 1 E4REV027 
1 , 1S0Z I, (1A(3451,J9I, I IA1344).JL0) ,{ ]A(343| ,JPRS| , f |A(34?| *JSDYI E^RtVQZB 
2 » I I A ( 34 l 1 t JSOZ l , ( 1 A I 340) . JARF) , | I A I 339 > ,.IMNX ) , 114 I 3301 , JNH Y ) F4REVD29 

3, (M(337),JM»2|,MAt3361,JMFl I. (M( 335 I, I I AS ) , { I A < 334 1 , I HZ I 
4,1 I A ( 333 ) , I PR > f I AA f 332 ( ,OGY) , I AA I 331 1,002 } . ( AA { 330] ,|'KES ) 

5, < IAI 329) , IPIR ) 

DIMENSION DIR I 3) .SIR 131 ,01 N( 3,3) , SR t />) , XN | 3 > , XH 3 ) , ON I 6 J ,0F(6) , 

1 RE S(6 ) , RED (6) ,845131, I C L AS ( 4 ) , NBAN | 101 , NU( 3 ] , NES 13) 

ECUI VALENCE ( A A I ?00 I , I ONE ) , I A A I 201 ) ■ 1CN } , { AA { 202 } , LK ) , ( A A ( 203 ) ,ASTE4REV035 
U ,(441204 ), iNflDN), I AA I 205), ARE), (AA 1206), ICLAJ, ( 44(2071 , IMF l I , F4REVQ36 
2 ( AA ( ?D8 I , IM) , I AA (209 I . IC ) , I A A f 2 ) 0 I , ICON) , (AA (211 ) * ANGLE 1,144(212 > ,E*RfV037 
3ICA5I »( AA(213I. IF I ,(AAI214),NH), ( AA(215),MWI E4RFV038 

4, (AA (216) , 1 ROT ] , I AA ( ? 1 7 I * HST ) E4RFV039 

EQUIVALENCE I A A I 22U ) ♦ B I R ) , I AA| 223), SIR] , (44(2261 ,OfN) , (AA(235l,5R) E4REV040 

1 f ! IAAf 2 ^J ? X f ! ’ IAA(247) ,UN) , I AA I 253) , OF ) , ( AA ( ? 59 ) , RF5 ) E4RFV041 

E4REV042 


F4RFV030 

E4REV031 

E4REV032 

E4REV033 

E4RFV034 


2, (4A( 2651 ,REU ), I AA(271 ) ,8 AS ), I AAI 2741 , I CL AS ), (4 4(278 I ,NftANI 
3- (AAIR9? I ,NU), IAA (?9S| ,NES) 

D I MENS I UN NEL ( 20 . 17] , MAC (4,4,20), I WO ( 90 ) T DO ( b » f> I , A I 90 ■ 7 ) , 0 I 6, R I * 
1C< R,2) ,FF| 1 I ,NSFT( 100 I ,MSr TflOOl ,W I 3, 3) 

EQUIVALENCE I AA ( ) 4000 ) , FF ) , (Mill 1 1 , J P I ) « I MJ I 2 } , J M ) ) , INLJf 3 I , J5I ) 
EQUIVALENCE IFF ( 1 ) ,N€L 1 , ( FF( 341 ) ,MAC ) . I FF | 661 ) , I WC, I » I FF I 751 } ,0D ) , 
1(FF|?87] ,4), (FF(1417J ,81 , (FFl 14H1 ) , C I , (FF(1 49 7),NS£f)«|FF| 1597) , 
2MSET), |FF(I697) , N ) 

DIMENSION xrH3)fETA|3),ZTA(3) 

EQUIVALENCE (OiNf | ) ,XII | , ( I>IN ( 4 ) , E T6 ) , ( DIN I 7 ) , Z T4 ) 

C FIND THE FIRST AND THF LAST NUDE TO RE CDNSIDEREO FOR THF FIT 

I M= I M 1 

ic=rc 

1 17M*1MET+1700 
I 18M= JMET+1HU0 
LL*0 

1E-MAC( IM, I C , 1 ) 

IP IIE-1) 100,100,200 
100 IELI*MAC( |M,K T 2I 

IF (NEL ( I ELT , 101-ICNI 102,101,102 
1UL KL=1 
XR*2 
LL= 1 

nsetiku = icn 

NSF. T IKK I =NEL ( I EL T , 1 1 I 
<>U IU 30U 
102 KL-4 
KR=5 

NSETIKL I =NEL ( lfLT.lOl 
NSET ( KR )=ICN 
GO TO 300 
20Q 1*2 

220 1 EL I *MAC { I M, IC , I ) 

IP INELdFLT, 10I-1CN) 202.201,202 

201 NSET ( 3)=ICN 

NSET< 4) = NEL I (ELTtll 1 

GO TO 210 

202 NSET( 3)=JCN 

NSET( 2} = NEL UflT.lOJ 
210 IF 11-31 216,216,216 
216 J«3 

GO TO 220 
216 KL=2 
KR=4 

30U DO 390 ]=L,3 

IF (KL-ll 301,301,302 

302 J*2 

nodl*nsftikl I 

GO TO 350 

301 IF (KR-S) 303 , 400 1 40(1 

303 J«L 
N0D1=NSET(KR) 


E<‘REV043 

E^RbV044 

E4REV045 

F4ft?V0^6 

E4.REVQ47 

E4REV048 

F4REV049 

E4REV050 

E4REV051 

E4RFV052 

F4REV053 

64REV054 

E4REV05S 

E4REV056 

Fare VO 57 

E4RFV05S 

F4REVQ59 

E« REV 060 

E4REVD61 

E4REV062 

F4RFV063 

F4REV064 

P4REV065 

F4REV066 

F4RFV067 

E4REV068 

E4RFV069 

E4RFV07I) 

F4RRV071 

F4RI-V072 

F4RRV073 

F4REV074 

E4RFV075 

F4REV076 

F4RFV077 

E4REV078 

F4RFV079 

E4REVORO 

F4RtV0Rl 

E«*REVO02 

E4REV0R3 

E4RFVQR4 

F4REV0B5 

F4RFV0R6 

E4RFV0R7 

F4REV0R8 

E4REvnR9 

F4RevD90 

P4REV091 

F4REV092 

F4REV093 


37U 

376 


390 

4UU 


440 

441 


3*0 J48 = JA + U-} ]#|T 

J4C = J4+(?-J I* IT 
LDDE-U 

DO 355 K.«1,JT 
L1-J4B+K 
L2-J4C+K 
L 3= J 1 +K 

IF I IAIL3)-I17M} 350,356, 33H 
360 IF HA(L3)-I18M) 355,356,365 

366 IF IMILU-ftODL) 355,35 7, 356 

367 L0DE=JA(L2) 

GO TO 359 

366 CONTINUE 

36V IF ILOOE] 360,360,370 

360 IF ILL-1 ) 365,390,365 
366 Nfl* KK-KL+ 1 

QU 366 L=1 iMft 
IF (J-ll 362.362.361 

361 L 1 * L 
L?*KL *L- l 
GO TO 366 

362 L 1 “ 6- l 
L2=KR-L+1 

366 NSETIU J=NSFT|L2] 

IF (J-l) 364,364,363 

363 KL= 1 
KR = NB 
LL- 1 

GO TO 390 

364 K R=5 
KL=6-Nft 
GO TO 390 

IF |J~1) 375,375,380 
KR*KR+L 
NSET(KR) =LUDE 
GO TO 390 
KL=Kl-l 
NSET(RL) =LODF 
CONTINUE 
Nfl*KR 

IF (INP-21 450,440,440 

WRITE OUTPUT 1 APE 6 , 44 1 , J E ,NH , ( NSF II I I , I = 1 , NH ) 
FORMAT 1 20X, 6 5HNOOE SET FOR FOUftlH (OR LESS) 

I LOWS, 2110/ !?0X ,201511 
460 IP0NN-N6 

C SKT TMt FOUATIONS FOR THE COEFFICIENTS 

14 IPPMPONN-1 

DO 15 1*1,1 PDNN 
K*NSE T I I I 

CALL F INOX (K.REOI 
l)U 16 J*l, TPP 
L=1P0NN-J 

16 B(I,J)=R6DI L)«*L 
B( I , IP OWN I ■ } . 

15 Cl t , LI-REni 2> 

C OBTAIN THE CRUDE DIRECTION OF XII AND SET THF 

RED( 1) =6( IPONN, 1 MUNN-1 1-0(1 , IPONN-I I 
RED 1 2 ) *C ( I PUNN , 1 ]-C I l , 1) 
ftE0(3)-(). 

ETA f 1 ) *0 , 

ETA<2)*0. 

ETA ( 3 } 3—1 , 

0*1. 

C FIND THE COEFFICIENTS 

CALL INV (8,IP0NN,C.1,DET) 

IF 10ET) 17,18.17 
Id WRITE OUTPUT TAPE 6,181, 1CN 

ldl FORMAT (I5,13X,89HNDT ENOUGH INFORMATION FOR f 
1, APPROXIMATE XII 4N0 ZTA VALUES ARE USED) 

CALL UNIT I R ED ,0 ) 

XIIU ) “RE D I L) 

XII I2)*REDI2) 

X 1 1 { 3 ) =RE 0 1 3 ) 

CALL VECT IZTA.XII , ETA ] 

CALL UNIT IZTA.O) 

GD TD 25 

C COMPUTE DIRECTION COSINES 
If IF ( 1 E-P 1 171,171,172 
1/2 WRITE OUTPUT TAPE 6,18i,lCN 
171 Z1A(1)=0. 

00 19 1*1 ,IPP 
K*IP0NN-1 
C I =K 

ly 2TAI 1 |*ZT4( 1 I+C1*C I I , 1 )*XN( !)>»?( K-l I 
ZTA I 2 I 1 . 

ZTA ( 3 ) *0. 

CALL VECT I XI I , ETA. ZTA) 

IF [ SCAL < RED 1 XII)) 20,20,21 
20 U=-l, 

?l CALL UNIT ( ZTA , Q ) 

CALL VECT (XII ,ETA,ZTA1 
CALL UNIT (XII, D) 

25 RETURN 
END 


E^RF V094 
F4RE V 09^ 
F4REV096 
E4RFV097 
F4HFV098 
F4RFV099 
f=4kFVlno 
F.4RFV101 
E4RFV102 
F4RFVL03 
E4RFV104 
F4REVL05 
FAR E VI 06 
E4RFVI07 
F4KEV1CB 
E4RF V109 
F4REVL10 
F4REV11L 
F4REVL12 
F4RFVI 1 3 
F4RFV1X4 
F4REV116 
E4RFV1 16 
F4RF VI I 7 
F^REVl 1 R 
F4RFV119 
E4«FV120 
FARE Vl Pi 
F4RFV ) 72 
f 4RFV 1 23 
r ; 4REVl?4 
FARE vl 25 
F 4REV1 26 
E4REV127 
E4KEV17B 
E4REV129 
E4RFV130 
F4RfVl 31 
F4RFV1 37 
E arfVI 33 
F4RF VI 34 
E4REVL35 


DEGREE POLYNOMIAL F0LF4RE v 1 36 
E4RFV1 37 
F4REV1 3 a 

Earfvi 39 
E4RFV140 
F4REV14L 
E4KEV147 
F4REVI43 
E 4Rp V 1 44 
E4REV145 
F4REV146 
E4RFV147 
F4REV14B 

DIRECTION OF ETA E4KEV149 
E4REV150 
F4REV151 
E are v 152 
E4REV1 53 
E4RFV154 
E4RFVI 55 
F4RFV156 
FARE VI 57 
E4XEVlSa 
E4REV1 59 
C4REV160 

I DOLE SURFACE NDRMA LE4RE Vl 61 
E4RFV162 
F4RFV163 
E4RFVL64 
E4REV165 
F4REVL66 
F4REV167 
F4RFV1 68 
F4REV1 69 
E4REV170 
F4RFV1 71 
F4RFV172 
F4REV173 
F4RFVI74 
F4RFV1 75 
E4RFV1 76 
E4RFV1 77 
F4RFV178 
FARE VI 79 
F 4rfv inn 

FAR FV 1 fl 1 
E4REVIR2 
F4RFV103 
«4 

F4REV1R5 

E4REV186 

F4RFV187 
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Table VII-74. Source program listing of subroutine ROTA (Link 4) 


* LAflEL 

CE4K0T FAKQTnno 

SUBROUTINE ROTA F^RTlTOOL 

C EXPRESSES MATERIAL MATRIX I N tnCAL AXTS E^RnT007 

C TO ROTATE MATERIAL AXES IF NECESSARY sn I HAT THFY COINCIDE H. DIN E 4 ROTOR T 

DIMENSION IMl) «AA( 1).SI1I'N(*),I>21 121 I »[WH3«3I tF77<3. 3) F4RflT004 

1 ,P<24) ,UV(24) t >C{fl) ,Y(Bl ,2lRI ,XDl7l ,Y0m .ZOI7I ,G1 M ) E4R0T0fi5 

COMMON 1 A , A A F4RQT006 

EQUIVALENCE 1 1 A, A A>, 1021,0331 »< 1)21 (10 1 .£22), 1021 < 19} ,E I . 1021120) , r, I F4ROTt)(!7 
EQUIVALENCE ltA(l),lN),IIAm.JBN>,mW3l,m,(TAt4),lP>,UA< , i>, F^Rflt OOH 

1 l PRS ) T ( 1 A ( S I f I TYPE I t ( IA(7) , 1 MAT ] ,( lAlfl), 10EG), M A I 9 > , I NX ) . U A M O I , FARO) 009 
2IH),llAtlL)«lfl),(IA(L2), I MMX I , ( 1 A {] 3 > , I MMY ) , [ I A I 1 *■ I T 1 Ms*? I . < 1 A M 5 ) « F4ROT01 0 
3IMFI > f (IA(1A)«1AHHI,( lA<17l,N(m,(IA(25I ,MI ,f IA(?A),ITY) t I I A i 27 I , E AROTOll 
4lSTR>*( IAI2B1 ,ltLTI ,< I A ( 29), I T£ M } , (I A [ 30 I , I TIC I, ( I A < 31 I, l MET) , F4RMT012 

S( 1 A I 32 I • i SUM ) « { I A ( 33 ) » I N|) ) , I 1 A ( 34 I , I MS ) ♦ I I A I 3A ) •» 1 US ) r I 1 A ( 37 I , E4ROTO L 3 

6J0RD>,{ I M39),I0RD1 ) « f I A( 39 I . ACEL I , < 1 A ( 50 ) , J 1 I , (1 A ( 51 > , .IP I , E4RUT014 

7( IAI52J ,J3I ,<IA| 53) ,J4>, ( 1AI 54),J5), (1*1 551 , JM. I JA(5M ,J7),t I A ( 97 E4R0T0 l 5 
8) , J8) , ( l A < 5ft ) t JTY 1 , (IAI 59), IBB), ( IAI 60) , IROl , ( 1A (61 > , II DJ , < IA(62 ) ,E4R01t)l6 
9IIA),I1A(63),IDT), IIAI64), IOY) ,( 1AI6S), ITEI , ( I Af4l) , ITAP) F4RUTH17 

ESI) I VALENCE ( I A(66) , ICAR I , ( I A ( 67 ) , I C I X ) , 1 I A I 6R ) , I C I V I , ( I A ( 69 ) , F4RUT 01 8 
11CI2), I IAI70I, 1CFI ) , 1 I A 171 ] t IXX), I I A (77), IVY 1 . ( 1 A< 73] , IZZ) , E4RQT019 

2 ( I A 1 74 ] , ] I C ) « I I A ( 75 ) , I DEF ) , I I A I 7 6 ) , I ST > , II A I 77 ) , I I S I E4ROT020 

3, ( lA(Tfl), I GEM I , < I A { 79 ) ■ I ERR > . I AA I BO } *TE) , { A A I R1 I ,Dl I , ( A A I 02 ) ,DG I * E4RDT021 
4< AA(B3I ,AL1 > , f AA f R4 ) , AL 2 ) , ( AA ( 85 ) , AL3 ) , ( A A | 86 I ,021 J * IAAI I 07 ) , P ) , F4ft0TO22 
5f AA(131 ),UV), IAAU55I ,X), ( AAl 163I,Y),(AAU71) , 21 , ( AA1179I ,XOI , E4R0TO23 

6( AAI1&6 ! ,YD) , < AA( 193) ,Z0) , f AA<3Sl 1 , SI , ( AA< 40 ) ,2GEM> F4ROT024 

7, [AA<42> ,INP I. IAAI 43) , IPBG), ( A A ( 44 ) , T PFN ) , I A A ( 45 I ,CQNS> , (AA(46) ,HJF4R0Tn?5 
fl) , 1 AAI47) ,GL). t AAI48I ,G2),(AA{49|,G3> F4R0in?6 

EQUIVALENCE I I At 349 1 .NTICI ,{ 1 A<348| , I SOT ) , I J A ( 34 ) > , ISDY), I IAI346) E4RDT027 

1, ISD2I ,t TAI345J , J9), I I A t 344 > , J 10 I , ( I A < 343 > , JPRS ) , f IAI34?) ..ISOY) F4ROT020 

2, | I A 1341 I ,JSDZ), UA|340),JARF),( IAI339J . JMMX ) , (1 M 33 B ) »JMMY) F4RnT029 

3, I I A { 33 7 I T JNMZ } , { IA(3361, JMF I) , < I At 335 I . ITAS) f ('I A < 334 ) , I Dll E4ROTO30 

4, MAI 3331 ,IPR),{AA(33?] ,DGY| f (AA(331 I *0071 , IAAI 3301 , PRES I E4ROT031 

5, I IAM29) tlPlK) E4«riT032 

DIMFNS1UN BIR(31 ,SlR(3),DlN|3t3J»SR(6] ,XN(3J ,XF(3I ,QNI 6) rQF(6) t E4RnTD33 

IRES(6) ,RED(6) ,BAS(31 , 7CLASI 4! .NBAN I 10 I , NUI 3 ) , ME S ( 3 1 F.*R(IT034 

EQUIVALENCE IAAI 200 ) , 1 ONE ) , I AA 1 201 > , 1 CN I , ( A A < 20 2 ) . LM) , t A A t 203 I .ASTF4R0T035 
1 ) , ( AAI 204) , INRDN) , IAAI 205 > , ARE) , I A A I 206), I CIA) , [ A A t 207 1 , IHtfL ) , E4Rf|T036 

2IAAI20&I r I M ) ,(AA(20S), ICI . ( AA ( 2 LO I , ICON I ,UM,?U) .ANGLE I , t AA l PIP I ,E4R0TD37 
3 1 C AS ) , ( AA ( 2 1 3 1 , 1 E > , I A A | 2 14 ) , NR ) , l &A | 71 6 ) , MB I E4R0T 03fl 

4 , 1 AA (7161 * I ROT I , (AA(2)7| ,BST> F4Rni039 

EQUIVALENCE |AAI220),BrRI ,1 AA(223)tSlR),(AA(22hl ,OlN) , ( AAI 235) ,SR IF4RDT040 

1 , t A A ( 2 4 1 ) , XN ) , | AAI 244 ) , XF ) . I AA I 247 > , ON I , I A A I 253 ) « CF I , I AA < 259 I , R FS ) 64H0T04 1 

2, < AAI 265) ,REO), I AAI271 ) .BAS I .( AA( 274) , ICLA5 | , ( AA f 27K I ,NBAN) 

3, (AA(292),NU), |AAI295),NE51 

DIMENSION NEU 20,17 ),MAC 14,4.20), IHG(90 I, DO I «, 6 ) , A ( 90 . 7),B(8,AI , 

1 C ( R 1 2 I ,FF(1 ) , NSE T I LOO ) .MSETdOO) ,H(l,3l 
EQUIVALENCE ( A A ( I 4000 ) , FF ) , I N<l{ 1) , JP 1 ) , [ NIK 2 ) , JM 1 1 , ( NU ( 3 ) , JS 1 I 
EQUIVALENCE IFM 1 ] ,NEL I , ( F F ( 34 1 ) , M AC ) , IFF(661 )» IWGI , I FF1751) ,00 I 
MFF(7B7),d),(FFM4l7l,Bl , fFF( 1481 I ,C> , ( FF M 447 ) , NSF 7 I , CFF ( 1597), 

2HSET), (FFI L697) ,M) 

DIMENSION XI 1 (3 ),ETA I 3 ) , ZTA | 31 

EQUIVALENCE UJINI M.XI 1) , (DINI4I ,ETA), I[HN(7I,7TA> 

DIMENSION R( 6,6) i T(61 ,V { 3 , 3 1 , S I I 3 I . R I I 3 ) 

EQUIVALENCE (All),R)f|A(37),T),IVIL),5I)i(V(4J,T|,(Vt7),RII 
c NO ROTATION IF MATERIAL IS ISOTROPIC 
IF | I TYPE I 200,700,9 


SEE IF SOLID 

9 IF (ICAS-3) 10,11,10 

10 IF IICAS-4) 12,11,12 

C IF SMELL OF REVOLUTION, DO NOT TRANSFORM 

12 IF MCAS-5) 12L, 200,121 

121 IF MCAS-6) 41,200,41 
C compute THE ANGLF BETWEEN BAS AND KSI 
41 Ati»SCAL(0AS.Xll ) 

C NO ROTATION IF THE ANGLE IS SMALL 


E4R0T042 
E4KCIT043 
E4Rf)T044 
E4Rmn4S 
F4R0T046 
E4R0T047 
E4RDT048 
F4R0TO49 
E 4RDTn50 
E4ROTOS1 
E4RJ1T052 
E ArijTOS 3 
E4R0T054 
E4RDTft55 
E4ROT056 
E 4RnT05 T 
F4R0T05R 
E4ROT059 
F4RHT060 
F4Rmn6i 
64RDT062 
F4R0TD63 
E 4 ft 0 T 0 h 4 


IF ( l .-AB5F (AG)— 1 , E-4] 2011,700.101 E4R0T0A5 

C NON-SOLID. MATERIAL AXES ARE UTAXfUS ) X27A ,Z T AXR AS ♦ 7 TA F4ROT066 

101 CC-1. E4RDT067 

CALL VhCI IT.ZTA.BAS1 E4R0TO68 

CALL UNIT IT, CO E4ROT069 

CALL VECT I S I i T , T A I E4ROT070 

CALL UNIT ISI.CC) 

CALL VECT (RI.SI.T) 

00 14 1*1,3 E4ROT073 

DTJ 14 .)* 1.3 E4ROT(]?4 

H I J , I ) -0 , F4RDT075 

DO IS K-1,3 E4R0T076 

16 H( J, I )=Wt .1, I I *OINI K, I !*v( K, J) F4R0T077 

14 CONTINUE Ei>Rn J 0 2 R 

GO TC I 6 E4ROT079 

C SUL 1 U MATER IAL AXES ARE P ARAL l FL Tfl (TVER ALL SYSTEM, E4Rf]T080 

11 DO 13 1*1,3 E4R0Tflfll 

DQ 13 J =1 , 3 F4RQT0H2 

13 W( I , J |=0IN( I , J I F4ROTOB3 

G(J 70 L6 F4R0T0R4 

C GENERATE R OF ( R I TRANS* ( DO ) * < ft ) 64ROT085 

16 DO 17 J =1 , 3 FARflTOB* 

00 17 1*1,3 E4RCIT087 

1/ R t 1 , J >=HI I , J >**2 E4R0T0RR 

00 IB 1=1.3 E4ROT0R9 

Rl I ,4)=W(I , L)*H( 1,2) F4R0T09C 

Rl 1,51-Wl 1,1 )*H(T ,3) F4ROT091 

R( 1,6)=WI I ,2)'FW( l ,3) E4R0T097 

R t 4 , J ) I L, t )*H(2, I ) *2 . E4R0T093 

kis, n-wrui )*H<3,n*2. E4ROT094 

IB R|6,l )=WI2, I )«W(3, I )»2. E4ROT09S 

R|^,4)rHIL,l)*N(2,21-»H(?,ll«W<l,2) F4RDT096 

R|4,5)-yi L,1)*M(2,3)*MI2,1)*WI 1,3) E4ROT097 

R[*,6)=WI1 ,2)MH(2,3)-t-H(2.2)*W< 1 ,3) E4RCIT09A 

ftlS,4> = Ml L,1)*MI3,21^I 3,IJ*MI 1,2) F4K0T099 

RI5,5)=H(1, 1 )*H(3,3)«’H(3,L l*W( ] .3) E4RDT1 00 

RI5.h) = WI 1,2)*H(3,3)+H( 3,2)<-W( 1,3) E4ROT101 

R| 6.4)=W(2, U*W( 3,2 l+H ( 3, 1 |*W( ?, 21 E4RTIT 102 

R|A,5)=H(2, l )«H(3,3)+N(3, 114NI2.3) E4R0TI03 

Rl 6 ,6 )=H(2 .2 l»W< 3,3 l+W| 3,2 )PW(2,3I R4R0T1 04 

20 DU 21 1=1,6 E4R0T105 

lie ?2 J= L . 6 F4RCT106 

T ( J I =0, F 4RDT 107 

DO 23 X=l,6 F4RnTlOfl 

23 Tl J1=T< JJ+DDl I ♦*)«*< I E4RDT109 

22 CONTINUE 6 4RQT 1 1 0 

DO 24 J=1 ,6 E4R0T1 1 L 

24 0D( J ,J1=T(J) E4R0T 112 

21 CONTINUE E4ROT113 

OQ 31 J =1 . 6 F4ROT 1 I 4 

DO 32 1=1,6 F4ROT115 

TtI)=G- E4ROTU6 

00 33 K=l,h &4RQT1 1 7 

33 T( I ) =T < Il+RIK,] )*DD(K,J) E4ROTILB 

32 CONTINUE F4R01119 

DO 34 1=1,6 E4RQT120 

34 DD( I ,J l=T I I) F4R0T1 ?1 

31 CUNTINUF F4ROT122 

C DIRECTION COSINES OF NEW MATE. AXES IN THE OLD ARE IN Ml 3,3) E4R0TL23 

IF (INP-2) 200 , 19, L9 E4R0T124 

19 WRITE nUTPUT TAPE 6,191 , I (R( t ,J) ,.1=1,6), 1 = 1,61 E4ROT125 

141 FORMAT (20X,57HP0STMULTIPLY|NG MATRIX IN MATERIAL TRANSFORMAT I nN FF4KOTL26 

10L LOWS/ ( 20X , 6F 1 2 , 5 I ) E4Rnl)27 

2UU RETURN E4RHT128 

END F4RPT129 
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Table Vll-75. Source program listing of 
subroutine SAME (Link 4) 


F<*SAM[)(]0 

F4SAM0P1 

f*kamdc)2 

F4SAMf)03 

F4SAM0IV. 

FfcSAMOOS 


LABEL 
AM 

subroutine same 

EXPRESSES 5 IK ESS IFNSOft IN I IV E RA|_L COURDINATF SYSTEM 
DIMENSION I An ) ,AA<1 I ,SIH ,N(R) , IV 1 l ? 1 I ,1133(3,3) ,FJ??I 3.3) 

I .PI24J ,IJV(24),X{{1> ,Y[f|),/(RJ ,XI)(7| ,YII|7 P,7fllV),fiL(l ) 

COMMON I A, A A 

EQUIVALENCE I [A, AAI , (021,0*31, (021 I10),F2?) » 1021 < L9),F), (f>21 1 20 I ,G I F4RAM0n6 
EQUIVALENCE ( 1 Ml) ,IN) , I IAI2P ,]RN) , [ IA(3) , IT), I IAI41 , IP) ,( IA(fO , EAR A MOOT 

II PR SI, I U ( A] f I TYPE)* MAI t ) t I MAT ) , M A < (i ) , I DEG > , I I A I 4 ) , JWX ] , ( I A M O ) , FA SAMOn R 
2IH},(1M11 P T IB),MAU2)tI^X).UAI13),IMMY>,MAUA).lMMZ),(lA[l<j| f F4SAMI)n9 

3lMFn*l U(1A),|ARE),{IA[I7),N<1)),(1A(JS|,M|,<IA(26)*ITVI,( I * < 27 ) , F*S4M01 0 

4ISTRI . ( IA(2H), I ELI >. I 1 Al 29)* ITEM! • ( t A { 31) ) « If I C ) » ( I A ( 3 1 I . ! M|-'| J, P^SAMOLl 

5 1 I A 07) , I SUM) . I I A [ 33 J , INI)), IT At 34 J , IMS) . []1 1361 , T [PS ) , I I A I 37] , F4SAM01 l 

6 I ORD I i ( IAI 3fl>, mum I , t 1 A< 39) , ACF.L ) , M A| 50) , Jl> , M A ( SI ) . J? J , F'*SANfU3 

7| Ia(52J ,J3>, (!A(53I,J4), IIAI54 I ,J5) , ( JAIS5) ,J6|, ( IA(56>,.I7), I I a ( 5 7F* SAM01 4 
B| ,J8|, (IAI 58) , JTYI , < 1A<59> , JRB), ( 1A| 60), IBfl) ,< IA(6I ) , I If)), HA( 6?) , F4SAMM5 
9lIA),f IAI 63 I, IDT), ( I A 164) , I fPY ) , ( I Af65l , 1 TE) .11 MAI ( . I TAP) F4SAM016 

FOUf VALENCE I IAI661 t ICAR1 , ( IAI67!, IC1X) t I IAI Ml • ICIY>, ( |M*9] f F4SAM0I7 
l ICIZ),UA|701 , ICFIP , ( 1A<7I), I XX I , ( IAI 72), |YY), UA(?3), 177 P , F^SAMOIH 

2UAI74I ,1 IC),(1A(75),I0EF) , I !A|74t ,IST) ,MAt77P . m) F4SAM019 

3, (1A(7B),1GEM), I IA(?9l, TERR), IAAI80I, TF>, (AAIR1 ),OTI , f AA(H?),Mr,), PARAMflAO 


1 11 
112 


F'-5AM0?1 

F4SAM02Z 

F4SAM023 


$ANn?6 
E4Sftr<)27 
F4SAMfl2H 
F4SAM029 
F4SAM03O 
E-«-SAM031 
F4SAM032 
F*5 AM033 


4 [AAI 83 I ,AI. 1 I , I AA(B4) ,AL?) » (AA<85) ,AL 3) , ( AAIH6) ,021 I *< AAH07) ,P I 
51 AAI 131 ),LJV>, (AAI ) 55>,X), |AA(IA3) , Y>, ( AA<171) ,ZJ , I AAt 179) ,XD>, 

MAAI LS6>«Ynt ,* AAI 193) , ZO P , ( AA 05 1 1 , S ) , < AA ( 40 ] T 7.GFM P 
7, (AA(42), JNP| , (AA(43), |P«G) , ( AA(44>, |MFN>, I AA [ 45 I , CONS I , ( AA(46J , rMF4SAMn?4 
HI , (AA (47),C1 1 , (AA(4S> ,02 I t (AM 49) ,031 F4S AM025 

EQUIVALENCE 1 I A 1349) * N T 1C) . ( IAI 348), 1 5 1) I ), | I A [ 3 47 ) , I S H Y I , { [ A ( 34 6 1 
1 ■ ) 51)7 > , l I A ( 345 I , J9 I , ( I A I 3441 , J 10 ) , (I A( 343 } , J PR S I , ( I A < 34? I T JSf)Y> 

2, MAI 341) ,.I5D7) r II A I 340 ) , JAR E J . fl A ( 339 P , J MMX ) , < 1 M 33fl ) * JMNY ) 

3, I 1 A ( 337 ) , JMMZ ) , f I A [ 336 } , JMF J | , ( I A I 335 ) , I T AS > , I I M 334 ) , | IV I 
4, 1 1 A 13 33) , 1 PR 1 , (AA( 33? I .DRY) , I AA ( 331 ) ,UGZ I , ( AA( 330 ) * PRFS ) 

3, ( I A ( 32 9 J , IPIfl) 

Ol MENS I (IN B(R(3),Slkl3l ,DIM(3,3) ,S«IM,XNI 3) ,XF<3) ,ON(GJ ,OF|f,| r 
7RES(M ,RED(6).BAS(3), ICLAS(4) ,NBANI 101 .Mill 31 ,NFS(3) 

EQUIVALENCE ( AA.1200P . I ONE ) , ( A A ( 20 l ) . ICNJ . (AAI202) , LM) , (AA (203 | , ASTF4SAMI134 

1 >, ( AA [ 20 4 } , | NBON ) , (AAI 206), ARE I , ( AAI 206), ICLA), ( AAJ207), I MEL) , F4SAM035 

2 ( A A ( 208 ) p I M ) , ( AA [ 209 ) , I C ) t I A A ( 2 1 0 ) , I CON ) , ( AA ( ? 1 1 ) , ANKLE I , C AA(?12> ,E'<SAM036 

3ICA5J 1 I AAI 21 3), IF | , ( AA< 21 4 ) , Nf3 I , ( AA ( ? 1 6 ) , MB I F4 54M0 37 

4, CAA(2I6J , IROT),(AA(2I7] ,6ST) F4SAMrm 

EQUIVALENCE ( AA( 220 ),BIR) . ( AA ( ??. 3 P , S I R ) , ( A A ( 77 b I , 0 I N > , I A A I 2 36 ) , SR ) F4SAM039 

1 , < AA (241 I tXN > , f A 4 I 244 ) ,XF ) ,1 AAI 247) .ON) , I A A | 253) , OF ) » ( A A ( 769) * RTS I F4S AM040 
?t( AA(2h5l,ftED), (AA 1271) .HAS | f (AAI 274 ) , ICL AS ) , I A A I 27fl) , MB AN ) F4SAM0M 

3 . < AA ( 292 I 1 NU ) « I A A { 295 ) ,NES| E4SAWJ42 

DIMENSION NEU 20 , 1 7 ), MAC I 4, 4, 20 I , IMG I 90 ) , HQ ( 6 , 6 ) t A ( 90, 7 ) , h I R, 8 ] , F4SAM043 

1C(B,21 ,Ff M I ,NSET( 100) ,MSET| U)0) ,H(3,3) 

FQll I VALENCE (AAI L4000 I , FF ) , (NU( 1 } , JPI ) , I Mlj I 2 ) , JNl ) , ( NLP I 3 ) , JS 11 
ECU f VALENCE I FF( 1 ) ,NEL 1 . IFH341) ,MAC I , ( FF I 6fil ) , IWGI , ( FF ( 751 ) ,nnj 
HFFI7B7),A), t FF| 1417 >,B) , IFF( 14B1 > , C ) , ( FF (1 497 ) ,NSFT ) , I FF ( 1 597 1 , 

2MSET), IFFI 1597P ,W) 

EQUIVALENCE (NESI 1 I, I COL I , I NES(2) . IRIK I , f NFS ( 3 ) * 10R ) 

01 MENS I UN DMM (3,3), OMMM ( 3 . 3 P 
EQUIVALENCE ( A( 1 1 ,ONM) , I A1 IO),DMMMJ 

NO COMPUTATION IF OVERALL COORDINATES ARE IDENTICAL WITH I OCAL 
TEST=7H A 

IF [BS1-TES.TI UOrlUOO, 1 10 
NO COMP II TAT I (JN IF IT IS A SHELL Pll I M 1 
IF (ICAS-41 111.111,1(100 

IF fT IS A PLATE MOTE THF SHIFT IN RFD VECTOR 
IF ( ICAS-21 112,113,112 
l)MM( 1,1 )sREO( 1 | 


dmmm ,2)=Ren<3) 

DMMI l,3)-REOI5l 
DNM(2,2)-RED(2) 

UMM I 2,3) “RED I 6 1 
UMM (3,3)~RE0(4) 

(51) TU 114 

113 DMM(1,1}»R£0I4| 

OMIil L,2 )-REfM6) 

DMM I2t2)=R£DI5I 
DMMI 1,3 J=0. 

DMM I 2 , 3 ) -0 , 

DMM (3*31 =0. 

C OBTAIN THE SYMMFIRIC PART 
11* DO 200 1-1,3 
DO 200 .1-1,3 
200 l)MM(J, I )*OMM( I , JJ 

C PERFORM THE TRANSFORMATION USING THF DIN MATRIX 

DO 400 1*1,3 
DO 400 J-l ,3 ‘ 

DMMM( I , J J =0 . 

DO 300 X=1 ,3 

300 DMMM ( I ,J|=OMMM{ I,J)*n|N? I,K )4|)MM(K, J) 

400 CONTINUE 

nn fioo 1=1,3 

DO 600 J-l ,3 
DMMI I,.))=0. 

DO 500 K=) ,3 

500 DMM ( ] , J ) =DMM < 1 , J J +DMMM (1,K)~0]N(J,KI 
6U0 CONTINUE 

C RFARRANCE SR NOTING THE SHIFT IN PLATE CASE 

IF UCAS-2) 650,700,650 
700 Sft I I I -0 . 

SR ( 2 ) =0 . 

SRI 3 P-0. 

SR ( 4 ) -DMM 11,1) 

SR [ 5 ) =DMM 12,21 
$R(G>=DMMI1,2J 
GO TO 730 

630 SRI 1 ) -DMM 1 1 , 1 ) 

SRI 2 ) =I)MM( 2 , 2 ) 

SR I 3 ) =DMM (3,3) 

SR ( 4 ) = DMM (1,2) 

SR(5lM)M«n ,3) 

SR I 6 ) -DMM (2,3) 

C FKINI THF *un RJJTUDN 

75U WRITE OUTPUT TAPE 6 , 1 , I CN , AST . I ME T , I CAS 1 1 5R II ) , I = l , b ) 
1 FORMAT { I5,A1, 14, I5,3X,6E15.6I 
1UU0 RETURN 
END 


E4SAM044 
E45AM04S 
, F4SAM0A6 
F 45 AM047 
F4SAM048 
F4SAMQ49 
F4SAM050 
E4SAM051 
F4SAM052 
F4 SAMDH 3 
F^SAMOSa 
F4SAM055 
E4SAM056 
F4SAM057 
S4SAM058 
E4SAM059 
F*SAM[)60 
F4SAM06J 
F4SAM062 
E4SAM063 

E4SAM064 
F4SAM065 
E4SAMD66 
E4SAM067 
F4SAM06R 
E4SAM069 
F4SAKI070 
F4SAM071 
F4SAM072 
E*SAM073 
F4SAM074 
E4SAM075 
F4SAM076 
F 45 A MO 7 7 
F4SAM078 
F4SAM079 
F4SAM0H0 
E 4 S A MCI R 1 
E4SAM082 
E4SAM0R3 
E4SAM084 
F4SA MOHS 
F4SAM0R6 
F4 SAMOA? 
F4SAM0RH 
E4SAM0H9 
F4SAMO90 
F4SAM091 
F4SAM092 
F*S AM093 
E4SAM094 
E4SAM095 
E4SAM096 
P4 5 A MO 97 
F4SAM09H 
F4SAMD44 
F4SAM100 
F4SAM101 
K4SAM102 
F4SAM103 
E 4 Sa m 1 0 4 
F4SAMID5 
F4SAMH16 
F 45 A Ml 07 
F4SAM) 08 


Table VII-76. Source program listing of 
function SCAL (Link 4) 


* LABEL 

CF4SCL 

Function scal(cir,diri 

C PERFORMS SCALAR VECTOR PRODUCT 

C TO OBTAIN THE SCALAR PRODUCT OF VECTOR S C1R AND DIR ON SCAL 

DIMENSION C1RI 3KD1RI3) 

SCAL-CIR 1 1 ) All! R I l l+C IR( 2 l*n|R ( 2)+CI R I 3)*niR( 3) 

RETURN 

END 


F4SCLDOO 
E4SCL001 
F4SCL002 
F4SCL003 
F 4 SC mil 4 
E4SCL005 
F*SCL0D6 
F4SCL007 
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Table VII-77. Source program listing of subroutine SETA (Link 4) 


* LABEL 

CE4SET E4SFTII00 

SUBROUTINE SETA F45FIOOI 

C GENERATES STRAIN-DEFLECT ION RELATIONSHIP AT A NODAL LINE E4Sr.TDOZ 

DIMENSION JA(1 | ,A&m ,5M ),N(BI ,D2l(2l) .033(3.31 ,F?2(3,3> EASE T 003 

1, PI24),UV124),X(B) .VI SI .it 9) *XI>C '/ ) , Y I* 1 7 J ,7.0(7] ,G1 (11 E4$ET004 

COMMON IA,AA E*SET0n5 

EQUIVALENCE! I A , AA ) , ( 02 1 , 033 > , I 02 1 <1 0 1 , 1-22 I , (112 1 U9 ) , F ) , 1 D? 1 I ?D > , G ) F4SE TOO* 
EQUIVALENCE <IA(ll,lN),llA{2),|0M} t (lA(3),lT),IIA(4|,lP>,(IA(5l, F4SFT007 

1 I P R S ) , [ I A (6) * 1 T Y PE ) . I 1 A I 7 I , I M A T I , ( I A ( R ) , 1 H F G J .( I A ( 9 I , I NX ) , I IAI10I , E 4S F T (1 () R 
2IH) , I IA ( 11 | , 1 R) , ( IA< 12 I , IMMX), < JA113) , IMMY) ,1 IA(14) , 1**7 > t < I A ( 1 5 ) , FA-SET 009 

3!NFI>,|lA{|6l,IARE>,llA<17>,Nm),IlA{251,Ml»(IAt26l,nY),UAI27>, E45F TD 1 0 
4ISTR),( lA(28), ISLT>, I IA|?9| , J IbMI ,<IA<30),ITIC)» I IA(3I > . IMET), F4SET011 

5( 1A(32 ] ,ISlfW I ,(!A(33), IN(1| ,( IA( 341 .IMS), M A t 361 , TOS) , ( IA(37) . E'.SFTni2 

*10RD ) , ( I A ( 3 H I « I0RD1 I , ( I A( 39 ) , AC EL ) . I I A I 50 1 * J 1 1 , I I A 1 5 L) . J2 I . F4SET01 3 

7f IA(52>, J3) , ( 1A!53I ,J4),( I A154) ,J5I , l MM55). J6I ,UA< 561 , J7 ) , I I A I b YE9SET01 A 
8I.J8), I IfllbBI , JTY), I TA (59) , I Fin) , I JAI601 , I BO), I 1 A I 61 J , 1 10). ( (A 16? I ,F4SET0l5 

91 IA1, I IAIA3I ,101), t IAI64I , IDY) .( IAI65] ,UEl ,( IAI41 ) , ITAPI F4SET016 

EQUIVALENCE { [A( 66 I , iCAftl . I 1 A ( 67 ) , J C I X 1 . ( 1 A ( 68) , 1C 1 Y) , <1 A ( 69 ) , EASE 1017 

1 I C 1 Z 1 .(1 A I 70] . ICH1I , ( lA(7l rt I XX) ,UA|7ZI ,1 YY>, I I A 1 73 > , r 721* F4SETM8 

2U A (74), IICI, UA«75)t)OFF), ( IM76I, 1ST] ,(1 A (77). MS) S4SET019 

3, I IA (78) , IGEM) , ( I A I 79) , IFRR) » < AA(8Q I ,TE I , < AA ( Bl ) ,DT ) , (AA I 821 ,0G) , E4 SET020 
4(AA(A3) t ALl I, I AA(84),AL2I ,(AA(R5),AL3> . (AA<86>,n21 > . < AA(10/),P) , E4$£T02l 

5 I AA (111 I ,UV] , ( AA( 1551 ,XI .< AAM63I ,Y| ,( AA117L l,Z > , I AA(l 79) ,*n) , F4SETD22 

A I AA 0 86 I, YD I ,<AA (193 1,20 I ,( AA(351 |,S), (AAI4D) , ZGEM 1 r4SET023 

7, ( AA 142 I , INP >, IAA (431 , IPBG) , ( AA( 44 ) , I PEN) , I Art (43 I ,CCINS) , (A A , 1 UE4SF T024 
8) ,<AA(47),G1),I AA{ 48 !,&?), (AJM49),G3I 
EQUIVALENCE ( I A( 349 I ,NTIC I , (1 A ( 34fl I , I SDT ) , <1 A I 347 } , I 50Y J , < I A< 3461 E4SET026 
1 , 1 SDZ ) • I I A t 34 5 I , J9 ) , I I A(344),.IIOI . I IAI 343 )iJPR5) , ( I A I 342 I » JSOY ) E4S67 027 

2, < IA(341 ) « JSDZ ) , I I A I 340 ) , J ARE ) 1 1 IAJ339J , .JMNX ) , ( J A < 33R) ,JMMY) F4SET02B 

3, MAI 337 > , JMMZ > , (IK 336) . JMF I I > ( I A( 3351 , T1 A$ ) , I) A I 334 ) , 1 flZ ) F4SK 1029 

4, (1 A 033), I PHI . < AA(332) ,OGY) , ( A A < 33 1 1 , DGZ J , ( AAC3301 .PRES) F4SET030 

5 , ( 1 A ( 32V ) , l P I R ) 

DIMENSION HlRI3),SlR(3),[)INO t 3J,SR(6UXNl3l,XF(3) ,0N[fi),HF(6) , E45ET032 

1 RES I 6 I , RED I 6 I . 6 AS I 3 ) ♦ IGL AS I 4 I , NBAN ( 10 > , MM 3 > , NE S I 3 ) EOET033 

EQUIVALENCE I A A ( 200 > . MINE ) , I AA I 201) , 1 CN) , ( AA I 202 ) , LM ) , | A A ( 203) ,A5Tr4StT034 

1 | , ( AAI204) , INBON) , IAA(205) . AKE ) , < AA I 206) , ICLA) , I AA I 207 I * I M EL I . E4SET035 

2 I AA1206 I , IN) , ( AA ( 209 I , I f. ) ♦ I AA ( 2 1 0 ) , IC(JN) , (AA (211 I , ANGLE I , { AA< ?l? ) , F65FTr>36 

3ICAS),(AA(213I,1E) tIAA[ 214),NIO. (AA! 2i5),Mft) F4SET037 

4, < AAI 216) , 1R0T )•♦ ( AA (21 7 I , BST ) , 

EQUIVALENCE ( AM 2201 „fl I R l , ( AA ( 71 3 > . S IR ) , l A A 1 22 6 J , D I N 1 , I AM 235) ,SR) E4SET039 
L, ( AA( 241 ) , XN> . I AA| 244 ), XF J , ( AA < 247 ) , ON I , ( AA<253) ,0F I , (AA(259) , KE S ) F4SE Tf)40 

2, [AA(265),REDJ,(AA(271),BASI,(AA(274| ,ICI AS I ,(AA(278) ,NRAN) 

3, (AA<292),NIH.(AA(295I,NES) 

DIMENSION NELI 20,17) ,MAC (4 .4, 20 ) , I WG I 90 I , nil I 6, 6 > , A I 90 , 7 I , B { R , B I , 

IC!8,2) ,FFI 1 I.NSETt 100) ,MSET(100J , W t 3, 3 ) , DC A R I 3 > 

EQUI VALENCf I AA I 14000) ,FF ) , (N1J( 1 | , JP 1) , I N(l I 2 > ♦ JM1 I . ( NIJ ( 3 1 » JS 1 ) 

EQUIVALENCE IFF! I >,NEL), IFF(341 ] ,NACJ, (FFI661 ), IWGI ,(FFI 791 ),00) 
l (FF ( 787) ,A ) , I FF I 141 71 ,B I , ( FF( 1481 I ,C) T (EF ( 1497) ,NSET) , <FF(1597J , 
2MSETI,(FF(L697),W) 

DIMENSION U|3,5) ,CI>IS! 3),CK0T| 31.001 SO) , ORt) \ I 3 > , DCOR I 3 1 , Z TA f 3 ) 

EQUIVALENCE I X ( 1) , U, DCOR > , ( X ( 4 I , CD I S 1 , ( X I 7 I , CRL1T ) , I X < 1 0 > , OP I $ ) « 

'eOUI VALENCE 1 (NFS! 1 ) , 1 COL ) , t NF S I 21 .TRIG), INESl 3) , I DR). IOI«< 71 ,ZTA) E4SRT052 

F 4 S FT053 


E45FT041 

F4SET042 

F4SET043 

E4SET044 

E4SET045 

R4SET046 

E4SET047 

F4SFT04H 

F4SET049 

E4SFT05G 

F4SE7051 


INITIALIZE 
If LT=IELT 
IMS-NEM IELT.S) 

GENERAlt STRAlN-PEFLECTjnN EQUATIONS FOR EVERY NODAL L INF 
DO 12 11=1 , 1 MS 
K^NELMfcLI. 1 1+9) 

IF IK-ICNI 13.12. 13 

FIND RELATIVE CDMKDNT S« AND DF.FLMS.OF NTIDF K IN OVERALL SYSTEM 
CALL FINDXCK.XFI 
call FINOQ(K.QF I 
OU 161 1=1 .15 

XI I > = 0. 

nCOH(l)-XF(l)-XN(l) 

DC0K(2>=XF( 2 J-XNI 2 J 
DCOR 13 )«XF (31-XN (3) 

idegmdeg 

01) 14 I = 1 » I DfcG 
RFD( 1 ) = QF ( i I -ON I I I 

SEPARATE OEFLCCTIUNS INTO DISPLACEMENTS AMO ROTATIONS 
KS=0 
K 0 = 1 

[F ( ICAS-2I 16,15,16 
IF (ICAS-6) IB, 17,18 
KS=2 

CO TO 18 

KB S 3 

KS-3 

DU 19 I =1 . 10FG 
1K-I 

IF ( I-KBI21,?0,2U 
1K-1+KS 

If I I K-3 I 22,22,23 

cdisiiki-onii p 
1)01 SI IK I’REDI I I 
GO 70 19 
IK=IK-3 

CKOTI IK I «QN(I I 


F4SET054 
F4SET055 
F4SCT056 
E4SET057 
F4SFT05B 
F4SET059 
F4SET060 
I-4SET061 
F4SrT06? 
E4SET063 
F4SET064 
E4SET065 
F4SET066 
f 41iF T(I67 
E4SET06R 
F4SET069 
E4SET070 
F4SET071 
F4SET072 
F4SET073 
F4SET074 
F4SET075 
F4SFTH76 
F4SET077 
H4SFT07B 
F4SFT079 
F4SETOBO 
F4$F TORI 
F4SET0R2 
E4SFTDB3 
E4SFTC1B4 
E4Smn86 
E4SFT0R6 
E4SET0B7 
F4SFT0RB 
F4SETDR9 


IJRC1T I IK)=REC( I ) 

is CONTINUE , 

C TRANSFURN CnORONTS. AND UEFLNS. INTO LOCAL IF NECESSARY 

IF ( I ROT I 25.24,25 

29 00 26 J«l,5 
DO 27 1=1,3 
s i h ( i )=n. 

DO 28 L-l , 3 

2d SIR 1 1 i«S W I I P+DIML, 1 )*U(L*-M 
27 CONTINUE 

[JO 29 1 = 1,3 
2y U( I,J1=SIRI I I 
7. 6 CONTINUE 
24 I CUN= ICON+1 
ICOL=1COL 

c COMPUTE THE LENGTH AND THE UNIT VECTOR OF THE NIJDAL L INF 

OCARM ) = DCLIR I l I 
DCAR(2)=DCURI?) 

DCARI3)=OCOR(3) 

CL-1. 

CALL UNIT ( DCAR ,C.L I 
C GENERATE LE FTHAND '$1 (IE ' 

OD 30 1=1 . ICOL 
J1=I 
12 = 1 
IS=I 

GO TO (37, 37, 31, 32,33. 34), IS 
31 11=1 
12*2 

Gfl TU 37 

32 11=3 
12=3 

GO TO 37 

33 1 1 = L 
l?-3 

GU TO 37 

34 11=2 
12*3 

37 AI ICON, I JsOCARdl I^DCARf 121 

30 CONTINUE 

C SET THF UNIT VECTOR, IN ZT6 DlKECTION IN THE SYSTEM DF OCOR 

RED( 1 1 "0, 

RED(2)=0. 

REDO ) =1 , 

C GENERATE R I GH1 HAND SIDE(S) 

J R 1 G= 1R1 G 
DO 40 1=1 , I R 1 G 
ICLMCOL+l 
IF 11^1) 45,45,50 
49 IF IlUR) 50,46,50 
C LINEAL STRAIN CASE 

46 CC=0, 

IF <DT) 47,49,47 

47 IF ( ] TYPE ) 48,471,48 
471 CC»ALL*DT 

GD TO 49 

46 CALL TFMHtCCI 
CC=CC^DT 

49 A ( IC0N,ICU=SCAUDD1S,DCAR)/CL-CC 
GO TO 40 

C CHANGE OF CURVATURE CASE 

50 CC=0. 

IF (DG) 57,59,57 
57 IF M1YPE) 58,571,53 

571 CC=ALL*DG 
GO TO 59 

5ti CALL TtMP(CC) 

CC=CC*DG 

59 DC=SCALI DRUT,nCAR) 

DO 5 92 J = 1 . 3 

592 DffQT ( J 1 =f)R OT I J 1 -DC«OC AR ( J I 
CALL VECT ’( S IR , REO, DCAR ) 

DC-1 . 

CALL UNI T I S I R , DC ) 

DC=SCAL(SIR,URUn/CL 
A I I CON, ICL l=DC-CC 
40 CONTINUE 

1 HG ( I C UN 1 = 1 
MB=MB 

IF (INBDN) 71,70,71 

71 DO 72 1=1, MB 

IF INBAN(l)-K) 72,73,72 

72 CONTINUE 
GO TO 70 

7 i IHGIICUN)=10 

7U IF IIMP-2) 12,61,61 

61 WRITE OUTPUT TAPE 6, 62 , ICN, K, ( A t I CON, J ) , J= 1 , 7 1 , I WG ( I CON 1 

62 FORMAT < I 5 , 3X , 2HT0, I 5 , 5 X , 7F 1 3 - 5 . I 5 I 

12 CONTINUE 

RETURN 

END 


F * SF T (190 
F4 5ET091 
F4SET09? 
F4SFT093 
(-4SFT094 
f 45FT095 
F4SF T(196 
£^SFT097 
E4sern9rt 
F4SET099 
F4SET100 
F4SE7101 
E4SFT1 02 
E4SFT103 
E4SET104 

F4J.ET105 
F4SFT106 
F4SCT107 
F4 SET 1 DR 
F4SETI09 
E4SFT110 
F4SETU 1 
F4SRT112 
F4SFTI 13 
F4SU1U4 
E4SFTH5 
EASETlIfe 
F4SET117 
F4SFT1 18 
F4SFT119 
F4SFTI 20 
E4SFT121 
F4SET1 ??. 
F4SFT123 
F45FT1 ?4 
F4SFT125 
E4SFT126 
F4SFT127 
F4SET128 
F4SET129 
F45FTI 30 
E4SE T1 31 
E45ET13Z 
F4SETL33 
F4SFTI34 
F4SFT135 
E4SFT136 
F4SET137 
E4SFI136 
E4SET139 
£4 SET 1 40 
E4SFT14L 
F4SET142 
E4SET143 
F4SET 1 44 
F4SET145 
E4SFT146 
F4SFTI47 
f4SETl 43 
r4SFTl4<j 

F4SET150 
F4SET151 
E4SET152 
E45FT153 
F4SST154 
F4SET155 
F4 Sf n 56 
E4SET157 
E4SETL58 
E4SET159 
E4SET160 
E45FT1'61 
E4SET162 
E4SET143 
E4SET164 
F4SET165 
F45FTL66 
E4SFT147 
E4SFT16B 

F4SFH 69 
F4SFT1 70 
E4SET171 
E4SET172 
F4SETI73 
F4SET174 
C4SFT1 75 
E4SET176 
E4SET1 77 
E4SET178 
F4SFT179 
E4SETIM0 
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Table VII-78. Source program listing of 
subroutine STRA (Link 4) 


* LABEL 

CE4$ta F4STA(inn 

SUBROUTINE STB A F45IAnfJl 

C COORDINATE THANSFUHMAT U1N FOR SlIFFNfSS mMKIX E4STA002 

DIMENSION IAI 1 ] t AML !,S< 1 ),N| HI ) , 033 1 3 , 3 ) 1 1:7? I 3. 3 } E'-STAOOS 

1 ,PI24| *UVI24T ,X1R| ,Y[fl) ,Z(H> t XD(T] , V f>( / > - ZO( Y ] ,R1 U I F4STA0O4 

COMMON U.AA E4STAOD5 

Foil I VALENCE ( I A, AM , ( D2 1 , f>33 ) , I 02 1 I 10 ) * F2? I , I D? L ( 19 ) , F ) , ( (>? L ( 20) ,G I F<-5 T A0O6 
EQUIVALENCE UAm,INI,(IA(21,I0N|,IIA(3I.IT).UAI4),!PJ,<JA{4p, K45TA007 
1 IPRS) , I IAI 6 I . ! TYPF ) , [I A ( 7 ) , I MA I ) , I 1 A I B I , HJfC, I , ( I A < 9 I , J N K > , I I ft I 1 0 I , FA S T 1 00 B 
21H|,(IM11MRI.(IAU7), |MMX},( f A { I 3 ) . I MMY I , II A (l 4 ) , I MMZ J . I I A f 1 5 J ,F4STA0r)9 
3 IMF I ), I I A I 16) , I ARE J, I IA{17 I ,NU >1 , < IA(75) ,M) , IIAIZAI ,TTY), ( IAI27I ,E4$TA0IO 
4ISTR),f IAI201 1 1EI.TI , f ]a( 29),|TEH),|IA|30| ,ITIC| ,< |A(3U . I*FT), F^STAOl I 
SI IAI 32), ISOM), I IAI 331 , lND) , II A| 34 J .IMS I ,< 1A(36).10SI ,( IAI 37) , fASTAHl? 

6I0RD), 11 AI3R) , lOROl >,I IA(39| ,ACEl I , (I M 50) , Jll , (J4| 51 ) ,J2 I , 1-4514013 

T I IAI 52), J3). I J A( 53 1 , J4 > « I IAI 54 ) « J5 ) < I IAI S3) , .16 > » [ J A ( 56 P * ,J7 J , ( |A(57F4STA0|4 
81 , JH) ,( IAI5RI , JTY P, U.AI59), [llrtl , ( |A|60) . IPO) , (IA(6l ), IIO) , ( I A ( 62 ) , FA 5J A01 5 
9 I I A ] , ( I A I 63 I , I DT ) , I F A I 64 1 , ] DY I , ( I A ( 65 ) , I T E I , (1 A { 41 ) . I T AP } E4STA0P6 


13 


A 


8 


EQUIVALENCE I I AI6&I . ICAR ( , ( IA( 67 > , IC1 X) , ( I A (68 I , ICIYI, ( 1 A f 69)t F4STA017 

11C1Z),IIA|?0}«ICF]),(IA(?II»1XX),|1AIY7)«IYY|.ITA(73),1Z7I. 6 4 ST (101 ft 

21 I A I 74 I , I 1C I, I lAf?4)»lT)E : F)» I I A ( 76 I , 1ST) < ( I A { 77 I , IIS) F45TA019 

3, ( IA(7H),l(iEMi t ITA|79) .IERR) .lAAIROP ,TE) , (AA(ftl) ,DT), IAAIR2) ,np) , h4STAI>2n 
4|AA|«3P .ALU-. I AAI64),AL2). I AAI85),Ai_3l , ( AA(86),n?n , I AAfin/J ,P), F4 5TA0? 1 
S{ A A : 131 ) ,UV ) , I AA( 155 > ,X ) , I AM 163) , Y ) . I AMI 71 ) ./ ) , I AM 1 79) , YD) , *4STA077 

6(AA< 1861 ,YD), I AAI 191>,Z0>. I AAI351 >,S), I AAI40I ,ZC,EMI E^STA023 

7 , I AA (4?) ,1NPI , (AA<43>, IPRG), I AAI44J ,1PEN) , ( A A < 45 ) , CONS ) . (AAI 461 . IUE*S T A074 
8|, ( AAI47),Gl 1 . ( AA(4R).G2) . I AAI49) ,03) F<>5tA(]?5 

EQlP I V A!. FNGE I I A 1 349 ) ,NT IC T . ( IA( 34ft I , I SOT I , I IA( 347 P i I 5D V ) , I I A I 34ft } F4S I AO? A 
l * I SD2 ) .1 1A( 34SI , J9J , < 1 A ( 344) , J 10 ) , f T A f 343 P , JRR.S) , I I A (34? ) , JSDY) F4STA077 
?, ( IAI 341 ), JSDZ) , UA| 340J.JARFI. I I A ( 339 ) » JMMX ) . (J A { 3 38 ) , J MMY I F4STA078 


3, ( IA( 337),JMM2) ,( 14(336) ,JMFI ) , I I A I 335 ) , I T AS ) . I I A I 334 ) , I 07 I 

4, U A| 333), I PR), I A A I 332 1 > DNY P ♦ I AA( 331) ,DGZ ) , ( A A( 3 30 | , PRFS P 
5 » ( I A { 329 ) , I P I R ) 

J=- IDS 

DO 5 1=) , MTS 

j=j+ids 

CALL THAN IS,J> 

CONTINUE 
1 A8B--IDS 
IEB8 = -I[)S 


E4STA029 
E4STAO30 
F4STA031 
E*STA037 
ST A 033 
E4STA034 
EAST AO 35 
E<-S 16016 
F4S1A037 
F4STA03H 


DU 6 |«J , JOS 
JABP-IARR+1. 

1 AB= 1 A0B 
IEBB = lEBD+lfiS 
lBE=!EfiR 
no 7 J=I,I0S 
IA8-IAB+IDS 
] BE*lflF+l 

1 F IIAR-IREI 7,7.13 

IFMP^SMBE) 

SITBEI-SflARI 

SI IAR) = TEMP 

CONTINUE 

CONTINUE 

J=-IDS 

00 8 I - 1 , TITS 
J=J« I os 

CALL IRAN <S,JJ 

CONTINUE 

RETURN 

END 


F4STA039 
E4STA040 
E4STA041 
E*S IA04? 

F4STAD43 
F4S PA044 
F4STA045 
F/STA046 
E4STA047 
F4STA04B 
F4STA049 
E 4S T AOIO 
E4STA0P1 
E4STA052 
F4STA053 
F4STA054 
F4STAC155 
F4STAHS6 
F 45 T AO ST 
E4 S T 4058 
E45TA059 


Table VII-79. Source program listing of 
subroutine STRS (Link 4) 


TR F4STRQ00 

SURRODTINF STRS f^STROO] 

COMPUTES STRESSES FROM STRAINS F4STRnn? 

DIMENSION IA| II ,AAI L I, SI 1 ) , MI R ) .D2U21 I . 033 I 3 , 3 ) . E?? I 3, 3 ) F^SIHOOS 

1, P(24) ,uv(24) ,X(6) ,YI8),Z(8I .XD|7 P ,Y D(7 > , ZD( 7 ) , G1 ( 1 I F4SlftU04 

COMMON I A, A A F4STR0IT5 

£0UI VALENCE [ I A ,AA ) , ( 02 I ,I>33> ,(021110) ,H2 2 I , ( U? I ( 19 I , F ) . ( 0? L ( 20 ) , C ) E4S TROOS 
EQUIVALENCE irAM),|N|,IIA(2),IRN),(lA(3],ITl.nAI4),|P),(IA(5l. F4STR0D7 

1 1 FRSI , f I AIA I , ) TYPE 1 , I 1 A< 7} , I MA T I , I I A ( fj I , ) UFC, P , U A I 9 1 , TNX ) , U A I LO } , F4$ T-ROOH 
Z I H ] , < I A ( n ), ]fn , I I A I 12 1 , 1 MMX) , I IAI 13 I , I MMY) , ( I A I 1 4 1, J MMJ | , ( | A < 1 5) .E4STR009 
3 IMF I I, (IAI 16) , I ARE I, I IA( )7>,NUP J tdAIZSJ.MJ .1 IAI2M. tTV), I I A | 2 7 I , F4S IRD1 0 
4ISTR), I 1AI28I .IELT I. ( IAI29) ,ITFM|, ( JA| 30) , ITIC I, ( 1A(3I > . IMFT), F4STR0U 
5d A I 32) , iSUM) . ( IA(33 ) , IND} , ( I A ( 34 ) , 1 MS I , ( IAI 36 I * IDS) . I IAI 37) , F4$7R0I2 

6IUR0) , I IAI 3R I ♦ 1 0RD1 ) , I I A ( 39 ) . ACE L ) , I I A I SO I , J 1 I , ( I A ( 5 1) ♦ J? ) , F4STP013 

V( 1A(5?),J3), I T A | S3 ) T J4),I I ft ( 54 ) , .15 I ■ ( IAI 5M) *J6)« I IAI56) ,J7), ( |A(57F-4STHI)|4 

8) , JR), I IAI5&I , JTV ), I IAI591, 1RB), ( lAlhfl) , IBOI , I IA<61 ) , HO) , I !A (6? ) ,F4STR01S 
9IIA) , I IAI6 3) ,IDT) , I IAI64I , 1IJY) ,(| A[A5) , ITF) , { I*(4l ), ITAP) F4STRD14 

EOU I VALENCE I I A 166 I , ICAR ) , (I A ( 67 I , I C I X ) , ( I A ! 68 I , l C I Y I , ( I A ( 69 ) . F45TR017 

1 ICIZ I , ( ! A I 70) . 1CF 1 ) * ( I A< 71 ) , I XX I , ( ]A<72) . IYY I . I IM T3I » 1 7.1 I . f 4S TR01 3 

7(IA|74},IIC),IIA|75)tID€F)iIIA|76),IST)«IIAI7T|,IIS) F4£TR019 

3. ( IA (78) , I GEM ) ,|] A I 79) , (ERR) .( AA ( 80 ) ♦ TE > , l AA ( fl l > .OT) . (AA(«2> .DRP , F4STRD7G 

4(AA(83) r AU I, I AA(B4),AL2) . I AAI85I ,AL3). ( A A f H6 1 , IT? 1 ) , { A A ( ) 07 ) . P ) , F4$TR02l 
5(AA(131 ),UVI ,( AA(155) ,X), ( AA( 163) ,Y) ,( AA(171 I ,7) , (A4( 179) ,X0) , P4STR022 
6( AAU86) ,Y(JI , ( AA( 193 P ,ZDI , ( AA ( 35 l > , S ) t I AA 1 40 P . 7GFM ) F4ST*n?3 

/, (AA I 42 ) . INF I , ( AA< 43 ) , | PBG) , ( AA( 44) , IPEN1 , I AA | 4^ ) ,CONS ) . I AA 1 4 6 ) , I llF4$ TR024 

8),»SAAI47I .Gl ).IAAI4R) ,G2I . (AA(49),G3) F4STRD25 

EQIIAVmI.FNCF I I A 1349) ,NTIC ) , ( I A I 348 ) , I Sf>T I . ( 1 A I 34 7 I , I SOY ) , (IAI 34 6 p F4STRD76 
1 1 1 SDZ ) , ( IA ( 345 I , J9) . < I AI 344) , J10) , (I A( 343) , IPPS ) . I IA [ 34 2) . JSOY ) F4$TR077 

2, < JA( 341 | ,JSDZ ) , I IAI 34IJ) , JAR f I , I 1A( 339 ) , JMMX) ,IIA(3?fi),JMMY) F4STR0P8 

3t ( I A ( 337 I , JMHZ J , ( IAI 336) , JM|-| ) ,f ( A (335 I ,TTAS), I IAI334) . ] n? ) p4SIHfI?9 

4, I I A( 333 I, I PR), |AA(332P.DGY), {AM 331) , HG2 ) H AA I 330 1 , PPf S I T4STRO30 

5,(rA(329).]P|R| p4 S TRD31 

DIMENSION 0IR<3),SJR(3I,DIN(3,3),SR<6I.XN(3.,XM3|,ON16>,OF1M. F«STR032 
1RES(6),RED(6].&AS(3).ICLASI41 , nBANI 10) , N(l( 3 ) , NE 5 I 3 ) F4STR033 

EQUIVALENCE ( A A I 200 ) , MINE 1 , ( A A I 201 ) , I CN I , I A A I 202 ) , LM I , ( A A I 203 ) , A S TF4S 1 R0 34 
1) , (AA [2041 ,INBCIN) , IAA(205) . ARE > , I A A [ 206 ) ♦ I CL A I , ( A A ( ?D7 ) , TMFL ) . fc*STK035 

7IAAI20B), |M). I A A I 209 ) , ] C ) , (AA(210) .ICON), IAAI711 ) .ANGLE) , I A A I 71 7 ) , F4 STR03 6 
3ICAS), IAA(213),lF)i |AAI214),NH)*IAAI215J *MB) F4STR037 

4, ( AA ( 21 6 ) , I ROT ) , t AA [ 2 1 7 1 , BS7 ) F4STR03H 

EQUIVALENCE IAAI77DJ ,R|R| ,(AA(223) , S I R P , ( A A I 226) , E) I N P , ( A A I 73 5 I *SR)F*-STR039 

I , ( AA( 24 L ) ,XN I , ( AA( 244), | , ( A A ( 247) ,0N) T ( AA< 753 ) , OF ) » 1 AA(?59J ,RFS IF4STR040 
7, I AA( 266 ) ,RED) , I AA(271 ) ,&AS) , I AA I 2 74 ] , I CLASP , ( AA ( 77 R) .NftANl F4STR04) 

3, ( AA I 292 ) .NO), ( AA ( 295 ) , MF S I F4STR04? 

DIMENSION NFL I 20, 1 71 ,MAC ( 4 ,4 , 20 P , l WG I yo | , Dt) I A. 6) , A I 90 . 7 I . R ( 8 . R ) , C4STR043 

1C( 8,2 ) ,FF ( 1 ),NSFT( 100 ),MSF1 M 00] ,M[ 3. 3) t*STR()44 

FOLI I V ALRNCF IAA(14000) ,FF ( , ( NIJ ( 1 P . JP 1 } , I MlH 2 ) , JM1 ) , ( Nil ( 3 J * JS I ) F4STR045 

EQUIVALENCE (FF 11) ,NEl ) , I FF I 341 1 , MAC ), IFFI661 ), I MG I . ( FF ( 75 l ),(TD) , E4STR04 6 

1 I f F I 7 8 Y ) t A > „ {FF I 1417} ,B) , { FF < ]481 I ,C I , < FF| 1697 I ,MSFT ) , I FT ( 1597 ] , E4STR0 47 
2MSFT),(FF(1697).M) F4S TR04R 

EQUIVALENCE (NFS I 1 I » ICtiL ) > (NFS ( 2 | , TR | C, ) , I NbS ( 3 I , I UR ) T4STR049 

COMPUTE GEOMETRIC CONSTANT F i .STRn50 

lCOL=ICnL £4 STROfi) 

I R I G* Tft IG F6STR052 

CM=TE F4STR053 

IF I l CAS- 3 1 1.2,3 F4STR054 

IF IICAS-4) 1,2.1 F4STR055 

CM»1. F4STftf)56 

INITIALIZE STRESS AREA F4STR057 

DO 4 1=1,6 E4STR05R 

RE0(I)=0. F4S1R059 

COMPUTE STRESSES E4S7R060 

nn 10 J=L»TRIG F4STR061 

nn 15 1=1,1 COL F4STR062 

1 J- ( J-l 1 #3+1 E4STR043 

DO 20 K= l , 1 COL F4STR064 

RED I IJ l«REO( IJJ + DOI 1 ,K |*C(K,JP*CM F4STR065 

CONTINUE E*ST ROAh 

CMs CM'sTE^TE P 12. F4SPR067 

CONTINUE F 4579068 

MODIFY THE COMPUTED STRESSES WITH THE PRFSCHlHFU ONES If ANY E4STR069 

IF (1NB0N) 34,33,34 E**STR070 

KBG=) F4STR071 

k EN=3 F4STRD7? 

KSH«1 F4 STRIT 73 

ICAS-ICAS E45THD74 

GO TD (61 ,62, M ,64,65,66,61,681 .ICAS F4$TRn75 

J<6G = 4 E^STRt)76 

K E Ns 5 FiSTROYT 

GQ TQ 61 F4STR07R 

Kt:N=5 F4STR079 

GU UP 61 F4ST«0Rn 

F4SIR081 

GO TO 61 F4STR0R? 

«EN.l E4STR083 

k SH=2 i-4 S T R(1 84 

GO TO 61 C45TRCin6 

KSH=2 r45TRna6 

K-0 E4S7R0R7 

DO 69 I-1,KSH 

DO 70 J=KBG,KFN,7 F45TR0P9 

K = F 4 5 T RD90 

RFFMJ l-SRIK I F45TR091 

K0G=KBG+3 F4STRn9? 

KFM«KFkU* p.fcjmiNj 

CONTINUE r^5TR(i94 

ARRANGE STRFSSES IN ORDER OF 1,2,3,17,13,23 IN SR PI.MCK E4STRD95 

00 30 1=1 ,6 C4STRfl96 

SHtn-RCPIIl E45TRD97 

IF (1STRI 31,31,40 F4S1R098 

IF IICAS-3) 50,40,32 t-^Slwny 1 ) 

IE I ICAS-4 1 50,40.50 F/.STR1D0 

SR(3)=RE0|4| F^STRlOl 

SR I 4 )= RE 0 ( 3 I F4STRI02 

RETURN F4STR103 

END F4STR104 
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Table VI1-80. Source program listing of 
subroutine TEMP (Link 4) 


Table VII-82, Source program listing of 
subroutine TOPO (Link 4) 


* LABEL 

CE4TMM F*T**POfK> 

SlJBRfHJT ] NE TEMP ICC I FAIMPOOL 

C COMPUTES NODAL LINF VECTOR IN ORIGINAL I3ATFR 1 AL AX^S E6TMpnn2 

C TCI COMPUTE LENGTH CHANGE PER UNIT Tf MPFRA TURF PFR UNIT F> I S T ANCF r4|MP[)U3 

DIMENSION I AH I ,AAI L I ,S( 11 ,N|&) ,D?1 I ?1 » .OV1I 3.3), F 22 (3, 3) r4(MHO04 

UR[24MjVf24),Xl8 J,Y(H1 , 1(8 > , XO < 7 ) , YD 171 ,/l>I7 I,G1 I l > I-41MP00 5 

COMMON I A , AA E4TNP006 

E OD I VALENCE I (A, A A ) , ( D21,FI33), M)2l(10 > » E 22 ) , (021(14) . F J * (OP1 I ? 0 1 , C- ] J= AT “P0C7 
EQUIVALENCE <lAlll»IN),(lA(?J,fKN},IIAI3).IT),<lA{4|,lP>.[lAIS), E4TMPG0R 

1 JHKS), [I A (6), I TYPE I , ( 1A< 7}, I MAT I , ( TAt fl) , ] DEG ) , I I A ( 9 I , INX) , (I A M 0 I . F4TMP009 
2IH),{JA| 11 },I6] ,IIA( 12), IMMX) , I 1AU3I ■ 1MMY1 , IIAI 14| ,INM7. 1 ,< IA{) 5> ,F4rMP010 
3IMFD, I TAI 16), [A( )7),N(1 I )»(1A(?5),M). I IAI7M, JTY), [ I A 1 27 I , F 4TMP01 1 

4!$TRlinMZ8|»IELT)«IIM29I.ITEh>,IIM30J*M]CI»<IAI31l ,1MET|, E4TMP012 

5( tA< 37] 1 1 SlJM) , ( IAI33I , INI1), 1 IA(34), f«SI » (lA(3A)t IOSI ,UA(37), E4TMP013 

fclORO) , ( i A| 38 I , IflRIll I , f IA( 391 , ACEL } , II A( 50 ) , Jll , < I A< 51 1 ,J2 ) ♦ F4TMP014 

7UA<!>2),J3) ( MA<53), J4>, HA t 541, J5I, I IA(55) ,J6), I IA ■ 561 . J71 , I 1 6 ( 57F4TMPCQ S 
H| f JfiJ,<I4l58) , JTY),( I A 159) , lttB) , ( IAI 60) , IBO| » ( I A ( fil ) ( I I f) J * ( I A I 62 ) ■ F4.TMP01 6 
91 IA), I rA!63),lOTl ,( IA(64),TnY), UAtfeSI. ITEI ,1IA{41 I ,rTAP) E4TMP017 

EQUIVALENCE I IA166I 'ICAft), IIMA7I ( TCIX>« < JM b*] 'ICIY1 ,< 1A< A9) , F4TMP0I8 

llCIZlf MAfTOIdCHlTtf IA(71l«UX},[|A(7Z)«lYr] t (IA{73)<IZZ) t F4-TMP01 9 

2l!Al?A)«IIC!»(IAlY91»IDEf I.(!A<76}«1ST),(TAI ?7),I1S> F 4 T MP020 

1AI78 >, ICEM), { IA(79), |F«K), ( AA ( 80 ) , T€ > , ( A A ( 81 I t DT ) , l A A t 82 I , DO ) , F4TMP021 

4 I Aft 1 83 ) , Al 1 ) ,( AA ( 84 ] » AL2 I , ( AA I 86 1 , AL3 ) , I AA(fl6| ,021 ) , ( A A I l 07 1 , P ) , F4TMP0?2 

5 ( AA 1 1 3 1. ) T UV I , ( AA ( 155),X)»(AA( 1 63 I , Y ) , (AA( 17 1 ] ,21 « [AA (1.79 1 .XU), F4TMP023 

6rAAI166|«riU«(AAf LV3)«ZD) t<AA(35L)tS). ( A A ( 40 I , ZGFM) H4| MHH24 


F 4 1 MH 026 
f 4 TMP 027 
F 4 TMP 02 R 
FATMP 029 
F 4 TMP 030 
E 4 TMPC 3 1 
r4TMP032 
E 4 TMP 033 
hiTWP034 


7 , ( AA( 4 J> ] , IMP) , f AA( 43 ) , I PBG) , t AA( 44 ) , I PEN) , ( AA< 46 > ,C.ONS) , I Aft ( 4 b) , 1 1 JF 4 TMP 02 S 
8 ) , IAA( 47 ) ,Gl ) , IAA( 48 ) , 1 ) 2 ) , ( AA( 49 ),G 3 ) 

EQUIVALENCE ( I ft ( 349 ) ,NT IC J , C 1 A I 348 ) , 1 SOT ) , ( I A < 3471 ♦ TSOY), ( IM 346 ) 

I, ISOZ ) ,UA ( 345 ) , J 9 J , ( I A ( 344 1 , J 1 0 ) , t 1 A I 343 ) , JP*S I , ( I A I 342 I . JMJY ) 

?*( IA< 34 l>,JSOZ I , ( I A( 340 ), JAKE] , ( I A ( 339 ) , J MMX ) , I I A I 33 H ) , J *» Y I 

3 , [ lA ( 337 ) , JMMZ ) , i I A [ 336 ) , J MF I >, ( 16 ( 336 ) , I TAS ) , ( I A ( 334 ) , 1 DZ ) 

4 t II At 333 ) , I HR ) , IAA( 3321 , 0 GYI, ( AA( 331 ) , 0 ( 1 * ) , I A A I 330 ) ,PRES) 

5 , ( I A {329 ) i f PIR] 

DIMENSION rtHU 3 ) ,SIR( 3 ) , 0 IN( 3 , 3 ) ,SR{ 6 ) ,XNI 3 ) ,XF( 3 },ON( 6 ) ,QF( 6 ) , 

JRES(b) ,REO( 6 ),(J 4 S( 3 I, ICLA. 5 ( 4 ),MHAN[ U)),NU( 3 ) ,NFS( 3 ! 

EQUIVALENCE IAAI 200 ) * I PNf I , < A A ( 201 ) . 1 CN I , [ A A < 207 ) . LM I . ( AA < 203 ) , ft STE 4 TMP 036 
TJ,( AA 1204 ) , TNHI 1 N 1 , ( AA( 205 ) , ARE I , ( A A ( 206 ) , JCLA ) , ( A A I ? 07 ) , IHFL J , F 4 TMP 036 

2 I AA [ 20 R I , I M ) , ( AA 1 2 1)9 ) , I C I , ( AA I 2101 , ICON) . ( AA ( 21 1 ) , ANGLE 1 , ( AA ( 212 P ,EATMP 037 

3 ! CAS] »{AA( 213 ), 1 E), [ A A f 2 1 4 I ,N 6 ) , ( AA ( 2 l 5 ) , MR | F 4 TMP 038 

4 , (Aft( 216 ),lROT ) . (AA( 217 ) ,BS 1 I F 4 TNP 0 39 

EQUIVALENCE I A A [ 220 1 , S ! K ) 1 ( A* < 22 3 1 i 5 1 R 1 , l AA 1 22 b 1 , D 1 N ) t ( A A ( ? 35 ) , SR P T 4 \ HP 040 

1 » < AA 1241 ) ,XN) , I AA( 244 I ,XP I , ( AA ( 247 ) ,ON) , (AM 253 ) ,GF > , I AA< ?S 9 ) .RFSI E 4 TMP 0 M 

7 » I A A t ?65 J ,RH 1 ), [ AA ( 27 1 I , ft AS ) , (AA( 274 ), I Cl. AS I , l A A ( 27 ? ) , NB AM ) E 4 TMP 04 ? 

3 , ( ft A ( 292 } ,NI.I ),(AA(? 95 | ,NFS ) F 4 TMP 043 

DIMENSION NFL ( 20 , 171 r MAC ( 4 . 4 , 20 ), I HG( 90 ), 00 ( 6 , 61 , A ( 90 , 7 ) , B ( M . B) , F 4 JMP 044 
1 C(B, 2 ),FF( 1 1 ,NSET( 100 ) ,MSF f ( 100 P , W < 3 , 3 P 
EQUIVALENCE ( 6 A ( 14000 l , FF J , < NU I 1 I , J P [ 1 , { WJl 2 ) , JMU » ( MLJ< 3 J .USl P 
FUUIVAI ENCE ( FF ( 1 I fMEL) , (FF ( 341 J , MAC ), (FFI 661 1 » 1 YG>, (FF( 7 pl) ,DD) 

HFM 7 B 7 ),MHFFri 4 l 7 ),B),(FF( 14 fil),C) , (FM 1497 ) ,NSET) , (FF 0 597 ) , 

2 MSET), (FFH 697 J ,WJ 

CDMPUTE THE NODAL L I Nh VECTOR IN THF ORIGINAL MATERIAL AXFS 
XF,DCAR EOUI VALENCE 0 IN SETA, CONTAIN UNIT VCCTIIK [IF NUOAL LINE 
OU 10 1 = 1,3 
S I K ( ! 1 = 0 . 
on 9 k.= i,3 

SIR H 1 =S 1 R{ I I tWl I ,K)*XFIK> 

continue 

COMPPJTE THE R E CM.I I R l"l J QUANTITY 
r.C»ALl*SlR(i P»’> 2 +AL 24 SIR( 2 )**? + AL 3 *SHU 31**2 
RFT 1 IRN 
END 


R4XMP045 
F4TMP046 
P4TMP047 
E 4 TMP04H 
F4 TMPH44 
E4TNP040 
F4TMP051 
F*TMPCi62 
T 4 TP'P063 
FA I MHO 5 4 
F4TMP099 
F4 TMPC 46 
E^TMP057 
F4THpO(ift 
E 4 TMP069 
F4TMPCI60 


Table VII-81. Source program listing of 
subroutine TICK (Link 4) 


* FAP 

CIJUNT 26 

IBL TICK 

ENTRY TICK 

MCK NIT DNCE 

TRA FIRST 

CAL 6 

SUB INI 1 L 

ALS IB 

SLW* 1,4 

TRA 2,4 

FIRST STL ONCE 

CAL 6 

stw inml 

S 1 Z* 1 ■* 

TRA 2,4 

UMLfc PZF 

1 NI 7 L P 2 F 

FND 


VTCKOMO 
TTCKnni 
T1CK007 
TICKOn3 
T l r.KOn^ 
TICKonS 
T [CKOf)6 
TTCKOO / 
T I CROP 1 8 
TICK009 
TICKOJO 
TICK01 1 
I l CKO 1 2 
T (GKO l 3 
1 S CKO l 4 
TICK014 
TlCKOlf. 
TICKOI 7 
I 1CK01B 


E 4 ILIPOPO 
FATUPOOl 
F 4 TtlP 0 n 2 
F 4 THP 003 
F 41 C 1 P 004 

E/.THPGOS 


<■ LAHH. 

CE 4 -| OP 

SUBROUTINE TOPO 

C PREPARES ELEMENT PROPERTIES 

DIMENSION IA< 1 >,AA{ 1 ),S( 1 J.N [»> ,021 I 71 ) , D 33 f 3 , 3 I , F 22 ( 3 . 3 ) 

1 . P [ 24 ) t UVI 74 ) ,XI 8 I ,Y( 8 ) , 2 ( & ) ,XI )1 T I f YDI 71 ,ZD| 7 ),G 1 ID 

EQUIVALENCE t I A , AA ] , i 071 , 033 ) , { D 2 1 I 10 ] , F 22 ) , I 1)2 l U 9 ) , E J , ! 0 ? 1 I 20 ) ,0 I E 4 TOP 0 O 6 
FWUIVALENCE (IA( 1 ),IN),< |A(?J, 1 BN),(IA( 3 ),TTJ,( IA( 4 ),IP),IIA( 6 |, T - 4 . | IJ p 00 7 
LIPRS) , ( lAi 6 ) , I TYPE), I I A ( 7 ) , I MA 1 ) , M A I 8 I , 1 DFG P , ( I A I 9 P , I MX ) , I I A ( 10 1 . E 4 TnP 00 R 

2 l H ) , f 1 A [ l 1 ) , I fi ) , ( | A ( 1 2 ) T I MMX), I 1 A I 13 ) , I M^Y) , I I A H 4 } ♦ 1 MMZ ) , (I A ( 1 5 ) *^TnPDn 9 

3 IMF I > , ( IA( 16 ), I ARE) , fl AU 7 ) ,N( 1 ) ), II 41 25 >) ,M) , ( |A( 261 f I TV) ,( IAI 77 ) .FATOPOTO 

41 STR], [IA( 7 »l,IFLn,(IA( 29 ),ITFMI, [ I A I 30 1 , I T I C ) , II A I 31 I , I MET ) , F 4 UJP 011 

St I A (32 I , I SUM ) i I T A ( 33 J , 1 NU), U A ( 34 ] , T MS P , (I A ( 36 ] , 1 OS I . ( ! A ( 37 ) , * 

6 inRfj) , I 1 A ( 38 ) , IDRDl I , < I A I 39 ) , ACfl ) , (I A ( 60 ) , J 1 > , (1 A I 51 J » J 7 ) , 

VII ft [52 ) , J 3 ] , [ I A ( 53 ) ,.14 I , P 1 A( 54 ] , J 5 ), [ I A I 4 SI ,U 6 ) , I IA t 56 P,U fl , i I 

B) ,. 18 ) , I IA[ 5 R] » JTY P , | T A I 69 ) ,1881 . I I A( ■'•()) , I till I ,( |A( 61 ), I 101 ,tlA( 62 ) ,F 4 TDP 016 
91 TAJ, I IM 63 ),I 0 T>, (|ft( 64 ),IDYl, ( |« 6 M,ITFU( IA( 4 l P , I TAP ) 

EQUIVALENCE (TAP 6 b I , ICAR ) , ( I ft ( 67 ) * 1 C I X ) , I I A ( 6 R ) , I C ! Y ) , (I A ( 69 ) , 

I I C I Z > , I I A ( 70 ] ♦ icr I I , ( [ Al 71 ) , 1 XX P , ( I A ( Y 2 J , 1 Y Y P , ( I A( 73 ) , 1 77 1 , 

7 ( IA< 74 ) ,! 1 C) , ( 1 A( 7 S) , I OFF) , I IA| 7 bP , 1 S 1 ), HA 177 ) , IIS) 

3 , ( | a ( ?R I, IGFM), I I A [79 1 , 1 ERK I, lAAIBOJ . T€ > , I A A fill I , llT ) , [ AA I 82 ) , DC, ) 

4 ( A A ( R 3 ) ,AL 1 ] , ( AA { 84 ) , AL 2 ) , [AA(H 6 l,AL 3 ),[AA(Pb).D 71 P,tAAI 107 ),P), 

5 ( AAU 31 ) ,I)V ] . ( AA (155 P , X) , I AA( 1 (, 1 ) ,Y) , ( AA( l?l ) . I J , f AM 1 79 I , XD) , 

61 AA ( 186 P ,YD), [AA H 93 I ,ZU), 1 AAI 351 I , 5 ),< AA( 40 ), ZGEM) 

(, (AA( 42 ) , INP ) , ( AA( 43 ) , I PHG) , I A A ( 44 ) . I PEN) i < AA ( 45 ) , CONS ) . 1 AA [ 4 6 I , 1 HF 4 T 0 P 0?4 
8 P , ( A A I 47 ] ,Gl P . (AAI 4 R | , G? ) , I A A I 49 ) ,G 3 ) E 4 T 0 P 025 

F Ul l J VALENCE < I A ( 349 ) , NT I C ) , I 1 A 048 ) , I SOT ) , ( I A ( 347 I . I SOY) , IT A< 3461 F 41 HP 026 

1 , I SO/) , [ lA 045 ) 09 ) , [ IAI 344 ) ,J 10 > , ( I A (34 3 ) ,JPRS) ■ I I A [ 342 ) , JSOY ) f -4 f [JPU 2 7 

7 , [ ] A t 341 ) ,JS 0 I) ,( IA( 340 P , JAKE I, I 1 A[ 339 ) , JMMX ] , (I A [ 3 38 ] , JMMY I 

3 , t Tft ( 33 F) ,.PHMZ) , I I A ( 33 b] , JMF I J , < I A ( 338 ) , I TAS I , ( I A( 334 ) , IDZ ) 

4 , ( J A| 333 ) , I PR J , ( AA( 332 ) ,OGY } , < A A dll P ,LPGZ ) , I A A ( 330 ) .PRES 1 

8 , I 16 ( 329 ) , IPIR) 


f 4T0PO16 
E4TnP01 7 
P4rnpoifl 

E4TUP0L9 
F4HIP020 
E4TfiPnP 1 
F4TF1P072 
F 4 TOP 023 


1 1 ir.=o 

I MET=D 

nu io i -l , b 

N( l )=0 
K= I + 335 
10 1 A P K 1=0 

JM=.IH M 

1FLT=I AIJMI/IDU 
I ME T=- 1 A (UN)— (OflATFL T 
,|M= J2+M 

IT ( I Fl. I -4 I 100,100,490 
lOO IF ( 1 1 r L T — 3 J 200,300,700 
7U0 JA«E = IA [.IMP /I OU 

1 T EM= 1 A | JM ]— 1 004.1 ARF 
GO TU 400 

300 JPRSMAI JM)/1(10 
, JS()Z=IAI JMI*100*JPRS 
400 IF I1ELT-3) 600,800,800 
4on IF (IELT-10) 470,470,600 
4/0 IF (TFl i - 8 ) 600 ? 500 ,4 PO 
480 JPR$= JA< JM)/100 

1 Tf:M=l A( .PM P-LOO* JPRS 
L = 1 

on TU 1DDU 

6U0 IT IC-lAl JMI/IOO 

ITEM=I A [ JM J-lOU* ITIC 
JM- J 3+M 

jS()I=U[JM)/ 100 
JI'ftS= I A [ JM I - 1 00* JSDZ 
I =7 

un m laoo 

600 JM= J3+-M 

JPRS= I A ( JM) 

L = 2 

if lien-?) u>oo,7oo,7oo 

700 JM«J4+M 

JMM/ = I A I JM ) / 100 
JSDY=IA(JHI)*100*JMMZ 
L = 3 

IF I I EL T-4 ) 1 000 , 900 , 1 000 
8(1(1 .1 M= J 3+M 

,JMMX= I Al JM)/100 
J MMY ® 1 A ( .IM I - 100* JMMX 
L*-2 

IF (IELT-4 1 10110.700, 1000 
900 JM= J6+M 

.)SDZ=iAUM]/ino 
JMF 1= 1 A{ JM)-100*JSOI 
JM=- J6+M 
JPRS= I A ( J M } 

I =4 

Hiuo 1 =] 

GO TO H 100, 1200, 1300 , 1 400 ) ,1 
1100 JM-J3+M 

N( | )=1A| JM) 

1-1 + 1 

1200 JM=J4+M 

N ( I >=IAf JM) 

1=1 + 1 

13 (JO ,J M= J 5+M 

M I)-I ft(JM) 

1 = 1+1 

JM= J6+M 

N I [ I = I A [ J M ] 

r = 1 1 1 

14U0 JM- J / + M 

M ( 1 } - I A I J M ) 

I - I + l 
JM=J 8+M 
N ( I )=|A( JM) 

1=1 + 1 
J M=J9+M 
N I I )■» I A ( JM I 
1=1 + 1 
JM= j 10+M 
Ml I I = I A ( JM I 

IF H-IH) 1600, lbOO, 1450 
1450 ] HP- I H+l 

DO 1500 I = ] HP , H 
1500 N(I)=0, 

16U0 RETURN 
END 


F4inP02B 
E 4 TnP 0?9 
F 4 T 0 P 030 
E 4 T 0 P 031 
F 4 TDP 032 
E 4 T 0 P 033 
F 4 11 IP 034 
F 4 T 0 P 01 S 
E 4 T 0 P 036 
F 4 T 0 P 037 
F 4 T 0 H 038 
E 4 II 1 PD 39 
E4T0P04IJ 
F 4 T 0 P 041 
F 4 II 1 P 042 
r4ruP043 
p 4 T 0 P 044 
F 4 TOP 045 
F4TnP04b 
F 4 TOP 047 
F 4 HPP 04 B 
F 4 f (IH 049 
F 4 TCP 050 
E 4 TUP 0 51 
F 4 T 0 P 06 ? 
E 4 TDP 053 
F 4 TOP 064 
P 4 IUP 005 
E4T 0P0 56 
F 4 T 0 PO 57 
F 4 T 0 P 058 
F 4 IUP 059 
E 4 TnP 060 
F 4 T[ 1 P 061 
E 4 TOP 062 
E 4 TOP 063 
(- 4 T 0 P 064 
F 4 T MP 066 
F4Tnpr>66 
F 4 TGP 067 
£4 T 0 P 06 B 
F 4 Tf)P 0 A 9 
F4TDP070 
P 4 inpn 7 i 
fa rripav? 

F4IIJPR73 
F 4 II 1 H 074 
F 4 T 0 P 075 
E 4 TOP 076 
F 4 TQP 077 
F 4 IDP 07 H 
F 4 TCIP 079 
E 4 TF 1 PO 80 
E 4 TDP 08 ) 
F 4 T 0 P 08 ? 
F 4 inPOI 13 
E 4 TOP 084 
F 4 T 0 P 085 
E 4 TOP 086 
F 41 UP 087 
F 4 inP 0 PR 
F 4 TOP 089 
F 4 TOPO 90 
E 4 T 0 P 09 L 
F 4 inP 092 
E 4 TDP 093 
F 4 TOP 094 
r4T0Pn95 
F 4 TOPO 96 
F 4 TUP 09 7 
F 4 T 0 PD 98 
i -4 II 1 P 099 
E 4 TOP 100 
F 4 TnP 101 
E 4 T 0 P 102 
E 6 T 0 P 1 1)3 
E 4 T 11 H 1 04 
F. 4 IOP 105 
F 4 inpioh 
E 4 TFIP ) 07 
F 4 TUP 1 nn 
E 4 TOPICS 
E 4 TI 1 PH 0 
F 4 T 0 PU 1 
E 4 THP 112 
F 4 Tnpu 3 
E 4 T 0 H 1 14 
E4TriHii5 
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Table VII-83, Source program listing of subroutine TRAN (Link 4) 


* LABEL 


CE4TRN 

SUBROUTINE TRAN [A.IESJ 

C FOR LOCAL-OVERALL Cl.) OR 01 NATE TRANSFORMATION FUR VECTORS 

DIMENSION JA(1),WI1),S(1| ,N ( 8 J ,02 U 2 L > , 0113 1 3, 3 > , f.Z? 1 3 , 3 ) 
1 « P I 24 ) , (JV < 24 ) * X ( B 1 « Y ( 6 } , Z ( ft I , XDI7 ) , YDl 7 >«7.D( 7 ) , lj»l (1 ) 

COMMON ]A,AA 


E41KNOOO 

EATRN001 

E4TRN002 

EATRN003 

E4TRN0U4 

E4TRN005 


EQUIVALENCE I U,AA>, (021,033 1, I 021 (10 J ,E22 ] ( (021119) ,E 1 , (OP 1 ( 701 ,c;jF4TRNn06 
EQUIVALENCE M AH 1 , ( M ) , { I A ! 2 } , I BN ) t M A ( 3 } „ I T ) , I I A I ^ I , 1 P ) , < T A < 5 ) . E4TRN007 

1 IPRS1 . , MA(6I , I TYPE) , ( |A<7),IMAT> ,UA<81 , IDEGI , MAI9), INXI , ( I A (1 0 ) , E4TRN008 

21H), I 1 A I 11), 18), I I A { l 7 ) , IMMX ) , ( IA( 13) , IMMYI , ( I A f l 4 I , I MMZ ) „ ( 1 A ( i 5 ) , F47 RN009 
3IMFI ) « I IAI 16} t I ARE ) , I I Ml { ),M| 1 ) ) , (JA12S I ,M) , ( IA( 26) , I TYJ , ( I A I 2? I ,E4TRN010 
4JSTR),l IAI 26 I , IELT), I TAI29) , ITEM|,( IA13U), I'lTOi I IAI 31 I , iMgT! , E41RN0I 1 
6( 1AI32) , ISUMJ ,(1AI33>, JNOI t( 1ACJ4) , I MS ] , ( 1 A < 36 I , I OS 1 , I 1 A [ 37 I , C4TRN012 

6inRn>,( I AOfll tIOROl), C1AI 39), ACE I. ) , f ( A I 5 0 I » <J 1 ) , ( I A < 5 1 1 , J 7 ) , E4TRN013 

f { J A ( 6 2 J ► J 3 ) , ( IA(53),J4| , ( 1 A f 5 4 > , J 5 I , ( T A ( 55 J » J6 I , ( I A ( 56] ,J7), I I A I 57F4TRN014 
BI.JRl ,MA(5B), JTY),MA<59>, lHB| ,MA(60>, IBO) , MA(61 I, III)), I I A I f>2 J , E 4TRN01 5 
911 A I , ( IA<63 ) , I UT ) , I IA( IS4) , IDY I , M A( 65 > . ITM , tl A<41 I , I TAP) E4TRN01 6 

EQUIVALENCE I I A ( IS6 ) * I CAR. I , U 4( 67 ) , IC1X > , ( I A l 68 I , I C I Y ) , M A ( 69 1 , F4TRN017 
1.IC] 2J ,1 IAI /OP ,ICFI), I IA(71 },1XXJ,UA1721 ,IYY), ( 1A(?3) , IZZ I , F4TRN016 

2 (I A ( 74 ) , I I C } » [ I Af 75 ) , IOEFUM A(76), 1ST), ( I A (7? I, I IS I F4TRN019 

3, ( I A ( 7 0 ) r I G E M 1 T ( 1 A ( 7 9 ) ,JERR] , ( A A | 0 0 I ,TEl » ( A A ( 8 L ) , l) 1 I ,( A A ( A 2 ) ■ 0& 1 , E4TRN020 
4 ( AA ( 83 ) , AL1 1 , ( A A ( 84 ) , AL2 I , ( AAI851 . AL3 I , ( AA ( 86 ) , 021 ) , ( AA ( l 0 7 J , P I , E4TRN021 

5<AA<131 I ,UV> , IAAU55 ) ,X) , l AA< 163) ,Y> , (AA1 1 71 >,Z) ♦ I AA I 179) ,XOI , E4TRN022 

61 AAdBA I, YD) , ( AA ( 193 > , 20 ) ,( AAI351 >,S), I AA(40| , ZGE M } E4TRN023 

7,< AA(42 I ,iNR) f I AAI43) ,IPBG) ,(AA(44), IPFN),(AA(45) iCQNS ) » ( AAI 46) , IUF4TRN024 
8) , [AA |47 I ,S1 } , t AA{46 ) ,G2 I , I AAP49J ,G3) F4TRN025 

EQUIVALENCE ( I A ( 349 ) , N T It) , P ! A [ 348 } * I $0T 1 , ( ] A(34?) . ISDYI ,( IA(346) S4TRN026 
1 ,1502 ) , ( ] A ( 345 I . J9I , I IAP 344), J10) , ( JA ( 3431 , JPRS 1 1 ( IA( 342 ) , JSOYI E4TRN027 

2 * ( 1 A T 341 J 1 , (1A(340) ¥ JARE) ,1 IAI 339) ,JMMX), I I A I 338 ) ,JMMY! F4TRN028 


3, ( IA( 33 Y J ,JMMZ I , ( I A I 336) , JMFI ) , ( IA( 335 I , ITAS I , < 1 A ( 3341 , 1 1)2 ) 

4 r ( I A (333 I ♦ I PR ) , (AA( 332) . DGY I » t AA ( 33 l I , DGZ } , ( A A I 33Q) ,PRES) 

5, ( I A( 329 I , I P 1 R P 

01 MENS ION EM(4|4),EN(4,4P ,014,4] ,018(3,3) ,miM(lfl) 

E0U1 VALENCE (AA (200 I , EM ) , I A A< 21 6) , EN ) , ( A A ( 232 P , EQ ) , I AA (248) ,0), 
1 IAAI264) ,0IR] , (AA(273) ,DUM> 

DIMENSION A(1I 
10 ] GEMP= 1 GEM+ 1 

L J I -0 

LA= I FS—4^ I MS 
20 00 300 L = 1 1 I (TEMP 

LK-LK+3#IMS 

30 on 200 J= 1 , 3 
on 200 i=i , ims 

L J I =L J I +1 
OIJM ( L J I 1-0. 

L K 1 -LK+ I 

40 l)U ion K= L ,3 
LK1^LKI+|MS 

100 DIIM(LJI)=CUJM(LJI I +OIR < K , .1 ) #A ( LK I ) 

200 CONTINUE 
300 CONTINUE 

I N I - 3* I GEMP* [ MS 
DO 400 1=1, INI 
U=IFS*I 

400 AMI ) -DUM I I 1 
RETURN 
fcNO 


F4TRN029 
E4TRN030 
E4TRN031 
E4TRN032 
F4TRN033 
E4TRN034 
&4TRN035 
E4TRN036 
E4TRN037 
E4TRN038 
F4TRN039 
E4TRN040 
E4TRN041 
F4TRN04? 
E4TRN043 
E4TRN044 
F4TRN045 
E4TRN046 
E4TRN047 
E4TRN048 
E4TRN049 
R4TR NO 50 
E4TRN051 
E4TRND5? 
E41 RN053 
F4TRN054 
E4TRN055 
K4TRN056 


Table VII-84. Source program listing of subroutine UNIT (Link 4) 


* label 

CE4UNT 

SUBROUTINE UN 1 T ( C I R,0 ) 

C OBTAINS A UNIT VECTOR ALONG A LINE SEGMENT 

C IF 0=NECATlVfc, CHANGF DIRECTION AND REPLACE WITH UNITY, 

C IF 0-0, MAKE 0=LENGTH*LENCTH AND RETURN 

C IF Q«P0SITIVF« REPLACE WITH UNITY, O-LENRTJi 

DIMENSION CIRI3) 

R-CIR ( l )*>*2+CTR(2 P^^2-t-CTRI 3 l<-»2 
IF ( Q) 10,19,20 

19 Q=K 

GO TO 21 

10 CIRm=-CJR(l] 

C I m 7 > C I R 1 2 I 
C I R ( 3 ) --C I R ( 3 1 

20 0=S0RTF(R) 

ClR ( 1 1 -C IK 1 1 I/O 
CJR(2)«CIR(2)/0 
C1R( 3}=C IR I 3 )/0 
71 RETURN 

END 


F4UNT0nn 
E4UNT001 
E4UNT002 
Q=lEnotk E4UNTnn3 

E4UN'm04 
FAUMT005 
F4DNT006 
E4UNT00? 
F4DNT008 
E4-UMI009 
F41INT010 
E4UMT01 1 
F4IINT012 
F4UMT013 
F41/NT014 
E4UNT0! 5 
E4UNT016 
E4UMT017 
E4UNT018 
E4UNT01 9 


Table VII-85. Source program listing of subroutine VECT (Link 4) 


* LABEL 

CE4VCT 

SUBROUTINE VECT ( A , 8,C ) 

C PERFORMS VECTDRIAL VEClOK PRODUCT 

C Til OBTAIN A AS ftXC 

DIMENSION Al 3 J ,R I 3) ,C( 3) 

AM )4fM?l*cm-EU3)*C(2 I 
M?i«iim*cm-im)»ci3i 
A(3)>Hll |*CI2 P-B(2)*C( I > 

RETURN 

END 


E4VCT000 
E4vct on i 
l:4VCTn02 

(-4VCT0O4 

F4VCT0DS 

E4VCT(lfl6 

E4VCT007 

F4VCT008 

F4VCT009 
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